new g77 tests

From-SVN: r25304

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index c9fe230410b71a9a37718c75a1faef214c3022bf..f97046cb2c0fa2c72794706c09ff716588f820cd 100644 (file)
--- 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 (file)
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 (file)
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