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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@41615 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index c4c1712..3449dde 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,5 +1,10 @@
 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
        has been fixed.
 

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