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

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
f6ce87c0 · Toon Moene · Toon Moene · f658da59 · f6ce87c0 · f6ce87c0
Commit f6ce87c0 authored 24 years ago by Toon Moene Committed by Toon Moene 24 years ago
Hide whitespace changes
Inline Side-by-side

Showing with 13 additions and 0 deletions

gcc/testsuite/ChangeLog
+5 -0

gcc/testsuite/g77.f-torture/compile/20010426.f
+6 -0

gcc/testsuite/g77.f-torture/execute/20010426.f
+2 -0

No files found.
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
 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.


--- a/gcc/testsuite/g77.f-torture/compile/20010426.f
+++ b/gcc/testsuite/g77.f-torture/compile/20010426.f
+      function f(c)
+      implicit none
+      real*8 c, f
+      f = sqrt(c)
+      return
+      end
--- a/gcc/testsuite/g77.f-torture/execute/20010426.f
+++ b/gcc/testsuite/g77.f-torture/execute/20010426.f
+      print*,cos(1.0)
+      end