From: Toon Moene Date: Thu, 26 Apr 2001 21:13:29 +0000 (+0200) Subject: 20010426.f: New test. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=f6ce87c0a68133b6b9b10816059f0946e7c2cc31;p=gcc.git 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 --- 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