procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

new g77 tests

Browse source 
From-SVN: r25304
This commit is contained in:
Craig Burley 1999-02-19 09:15:46 +00:00 • committed by Craig Burley
parent 577c6ece68
commit a27e2d3955
3 changed files with 31 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,8 @@
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.

13
gcc/testsuite/g77.f-torture/compile/19990218-0.f Normal file
View file

@ -0,0 +1,13 @@
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

13
gcc/testsuite/g77.f-torture/noncompile/19990218-1.f Normal file
View file

@ -0,0 +1,13 @@
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