diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index c4c1712031a..3449dded16c 100644
--- 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
index 00000000000..b22b02907a6
--- /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
index 00000000000..dd1b5bdd0e8
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/execute/20010426.f
@@ -0,0 +1,2 @@
+      print*,cos(1.0)
+      end