diff options
| author | Toon Moene <toon@moene.indiv.nluug.nl> | 2001-04-26 23:13:29 +0200 |
|---|---|---|
| committer | Toon Moene <toon@gcc.gnu.org> | 2001-04-26 21:13:29 +0000 |
| commit | f6ce87c0a68133b6b9b10816059f0946e7c2cc31 (patch) | |
| tree | 85cb8fa4332e8caac5855293be8bc85c46770eaa /gcc | |
| parent | f658da59d4dc9f265438a2828be6bd38ef4bbdff (diff) | |
| download | gcc-f6ce87c0a68133b6b9b10816059f0946e7c2cc31.zip gcc-f6ce87c0a68133b6b9b10816059f0946e7c2cc31.tar.gz gcc-f6ce87c0a68133b6b9b10816059f0946e7c2cc31.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/compile/20010426.f | 6 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/20010426.f | 2 |
3 files changed, 13 insertions, 0 deletions
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 <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. 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 |