Skip to content

R
riscv-gcc-1
Commit a27e2d39 by Craig Burley Committed by Craig Burley
Options

new g77 tests 

From-SVN: r25304
parent 577c6ece
Showing with 31 additions and 0 deletions
gcc/testsuite/ChangeLog
1999-02-19 Craig Burley <craig@jcb-sc.com>
* g77.f-torture/compile/19990218-0.f: New test.
* g77.f-torture/noncompile/19990218-1.f: New test.
1999-02-18 Craig Burley <craig@jcb-sc.com>
* g77.f-torture/compile/19981216-0.f: New test.
......
gcc/testsuite/g77.f-torture/compile/19990218-0.f 0 → 100644
program test
double precision a,b,c
data a,b/1.0d-46,1.0d0/
c=fun(a,b)
print*,'in main: fun=',c
end
double precision function fun(a,b)
double precision a,b
print*,'in sub: a,b=',a,b
fun=a*b
print*,'in sub: fun=',fun
return
end
gcc/testsuite/g77.f-torture/noncompile/19990218-1.f 0 → 100644
double precision function fun(a,b)
double precision a,b
print*,'in sub: a,b=',a,b
fun=a*b
print*,'in sub: fun=',fun
return
end
program test
double precision a,b,c
data a,b/1.0d-46,1.0d0/
c=fun(a,b)
print*,'in main: fun=',c
end
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment