From f6ce87c0a68133b6b9b10816059f0946e7c2cc31 Mon Sep 17 00:00:00 2001 From: Toon Moene Date: Thu, 26 Apr 2001 23:13:29 +0200 Subject: [PATCH] 20010426.f: New test. 2001-04-26 Toon Moene * g77.f-torture/compile/20010426.f: New test. * g77.f-torture/execute/20010426.f: New test. From-SVN: r41615 --- 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 c4c1712031a..3449dded16c 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +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 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 -- 2.30.2