diff options
| author | Craig Burley <craig@jcb-sc.com> | 1999-02-19 09:15:46 +0000 |
|---|---|---|
| committer | Craig Burley <burley@gcc.gnu.org> | 1999-02-19 04:15:46 -0500 |
| commit | a27e2d395503ee9450598898cdea750808056037 (patch) | |
| tree | d8cb2ff44585b39722a4e61566a04f019be5be7d /gcc | |
| parent | 577c6ece68da7c9e1af3a8353fff9d28fe97c432 (diff) | |
| download | gcc-a27e2d395503ee9450598898cdea750808056037.zip gcc-a27e2d395503ee9450598898cdea750808056037.tar.gz gcc-a27e2d395503ee9450598898cdea750808056037.tar.bz2 | |
new g77 tests
From-SVN: r25304
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/compile/19990218-0.f | 13 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/noncompile/19990218-1.f | 13 |
3 files changed, 31 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index c9fe230..f97046c 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -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. diff --git a/gcc/testsuite/g77.f-torture/compile/19990218-0.f b/gcc/testsuite/g77.f-torture/compile/19990218-0.f new file mode 100644 index 0000000..3e34117 --- /dev/null +++ b/gcc/testsuite/g77.f-torture/compile/19990218-0.f @@ -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 diff --git a/gcc/testsuite/g77.f-torture/noncompile/19990218-1.f b/gcc/testsuite/g77.f-torture/noncompile/19990218-1.f new file mode 100644 index 0000000..25b7c5b --- /dev/null +++ b/gcc/testsuite/g77.f-torture/noncompile/19990218-1.f @@ -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 |