From a27e2d395503ee9450598898cdea750808056037 Mon Sep 17 00:00:00 2001 From: Craig Burley Date: Fri, 19 Feb 1999 09:15:46 +0000 Subject: [PATCH] new g77 tests From-SVN: r25304 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/g77.f-torture/compile/19990218-0.f | 13 +++++++++++++ gcc/testsuite/g77.f-torture/noncompile/19990218-1.f | 13 +++++++++++++ 3 files changed, 31 insertions(+) create mode 100644 gcc/testsuite/g77.f-torture/compile/19990218-0.f create mode 100644 gcc/testsuite/g77.f-torture/noncompile/19990218-1.f diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index c9fe230410b..f97046cb2c0 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +1999-02-19 Craig Burley + + * g77.f-torture/compile/19990218-0.f: New test. + * g77.f-torture/noncompile/19990218-1.f: New test. + 1999-02-18 Craig Burley * 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 00000000000..3e34117ec69 --- /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 00000000000..25b7c5b2b52 --- /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 -- 2.30.2