From 4d2778e6ee3f334427d620a7ff975e49e20d9922 Mon Sep 17 00:00:00 2001 From: toon Date: Thu, 26 Apr 2001 21:13:29 +0000 Subject: [PATCH] 2001-04-26 Toon Moene * 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 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/g77.f-torture/compile/20010426.f | 6 ++++++ gcc/testsuite/g77.f-torture/execute/20010426.f | 2 ++ 3 files changed, 13 insertions(+) create mode 100644 gcc/testsuite/g77.f-torture/compile/20010426.f create mode 100644 gcc/testsuite/g77.f-torture/execute/20010426.f diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index c4c1712..3449dde 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,10 @@ 2001-04-26 Toon Moene + * g77.f-torture/compile/20010426.f: New test. + * g77.f-torture/execute/20010426.f: New test. + +2001-04-26 Toon Moene + * 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 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 index 0000000..dd1b5bd --- /dev/null +++ b/gcc/testsuite/g77.f-torture/execute/20010426.f @@ -0,0 +1,2 @@ + print*,cos(1.0) + end -- 2.7.4