From 7d76ae562205fe69707767f28ffe01054ff82c92 Mon Sep 17 00:00:00 2001 From: David Billinghurst Date: Fri, 5 May 2000 10:31:25 -0600 Subject: [PATCH] * g77.f-torture/execute/20000503-1.f: New test. From-SVN: r33712 --- gcc/testsuite/ChangeLog | 4 ++++ .../g77.f-torture/execute/20000503-1.f | 24 +++++++++++++++++++ 2 files changed, 28 insertions(+) create mode 100644 gcc/testsuite/g77.f-torture/execute/20000503-1.f diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index de57179695c..7579c134491 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2000-05-05 David Billinghurst + + * g77.f-torture/execute/20000503-1.f: New test. + 2000-05-04 Andreas Jaeger * 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 00000000000..027c9fc6fbb --- /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 -- 2.30.2