20010426.f: New test.

2001-04-26  Toon Moene  <toon@moene.indiv.nluug.nl>

	* g77.f-torture/compile/20010426.f: New test.
	* g77.f-torture/execute/20010426.f: New test.

From-SVN: r41615

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index c4c1712031a0221b361e5d37be671d91944dc52a..3449dded16c91055705511a00320df90fb075b04 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2001-04-26  Toon Moene  <toon@moene.indiv.nluug.nl>
+
+       * g77.f-torture/compile/20010426.f: New test.
+       * g77.f-torture/execute/20010426.f: New test.
+
 2001-04-26  Toon Moene  <toon@moene.indiv.nluug.nl>
 
        * g77.f-torture/compile/20000629-1.x: Remove - error

diff --git a/gcc/testsuite/g77.f-torture/compile/20010426.f b/gcc/testsuite/g77.f-torture/compile/20010426.f
new file mode 100644 (file)
index 0000000..b22b029
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/compile/20010426.f
@@ -0,0 +1,6 @@
+      function f(c)
+      implicit none
+      real*8 c, f
+      f = sqrt(c)
+      return
+      end

diff --git a/gcc/testsuite/g77.f-torture/execute/20010426.f b/gcc/testsuite/g77.f-torture/execute/20010426.f
new file mode 100644 (file)
index 0000000..dd1b5bd
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/execute/20010426.f
@@ -0,0 +1,2 @@
+      print*,cos(1.0)
+      end