diff options
| author | David Billinghurst <David.Billinghurst@riotinto.com.au> | 2000-05-05 10:31:25 -0600 |
|---|---|---|
| committer | Jeff Law <law@gcc.gnu.org> | 2000-05-05 10:31:25 -0600 |
| commit | 7d76ae562205fe69707767f28ffe01054ff82c92 (patch) | |
| tree | 8f9924ea53c6b7a10060cc61acc8c36873bebe35 /gcc | |
| parent | 6a0177c5b91a988932e59202c4f2e0949cd4b019 (diff) | |
| download | gcc-7d76ae562205fe69707767f28ffe01054ff82c92.zip gcc-7d76ae562205fe69707767f28ffe01054ff82c92.tar.gz gcc-7d76ae562205fe69707767f28ffe01054ff82c92.tar.bz2 | |
* g77.f-torture/execute/20000503-1.f: New test.
From-SVN: r33712
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/20000503-1.f | 24 |
2 files changed, 28 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index de57179..7579c13 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2000-05-05 David Billinghurst <David Billinghurst@riotinto.com.au> + + * g77.f-torture/execute/20000503-1.f: New test. + 2000-05-04 Andreas Jaeger <aj@suse.de> * gcc.dg/noreturn-2.c: New test. diff --git a/gcc/testsuite/g77.f-torture/execute/20000503-1.f b/gcc/testsuite/g77.f-torture/execute/20000503-1.f new file mode 100644 index 0000000..027c9fc --- /dev/null +++ b/gcc/testsuite/g77.f-torture/execute/20000503-1.f @@ -0,0 +1,24 @@ +* +* Originally derived from LAPACK 3.0 test suite failure. +* +* David Billinghurst, (David.Billinghurst@riotinto.com.au) +* 23 February 2000 +* + INTEGER N, I, SLASQX + N = 20 + I = SLASQX( N ) + IF ( I .NE. 2*N ) THEN + WRITE(6,*) 'I = ', I, ' but should be ', 2*N + CALL ABORT() + END IF + END + + INTEGER FUNCTION SLASQX( N ) + INTEGER N, I0, I, K + I0 = 1 + DO I = 4*I0, 2*( I0+N-1 ), 4 + K = I + END DO + SLASQX = K + RETURN + END |