* g77.f-torture/execute/20000503-1.f: New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@33712 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index de57179..7579c13 100644 (file)
--- 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 (file)
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