re PR fortran/1636 (Format strings with identical numbers cause assembler error)

2001-01-15  Toon Moene  <toon@moene.indiv.nluug.nl>

	* g77.f-torture/execute/20010116.[fx]: New test,
	XFAIL on i?86-*-*.
	* g77.f-torture/compile/20010115.f: Indicate it's
	a test for PR fortran/1636.

From-SVN: r39056

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 2c6ff5a8ee457bc07d2c92c95c00f877659dc39d..6cee7bbf42daace0416a5c6ca9b7932148f9c10c 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,10 @@
+2001-01-15  Toon Moene  <toon@moene.indiv.nluug.nl>
+
+       * g77.f-torture/execute/20010116.[fx]: New test,
+       XFAIL on i?86-*-*.
+       * g77.f-torture/compile/20010115.f: Indicate it's
+       a test for PR fortran/1636.
+
 2001-01-15  Joseph S. Myers  <jsm28@cam.ac.uk>
 
        * gcc.dg/c90-float-1.c, gcc.dg/c99-float-1.c: New tests.

diff --git a/gcc/testsuite/g77.f-torture/compile/20010115.f b/gcc/testsuite/g77.f-torture/compile/20010115.f
index 71e8c6948b9c403cd165baec8e4e0ba48d784001..8cf85a80abe576ddd24e237bda592912a7adacff 100644 (file)
--- a/gcc/testsuite/g77.f-torture/compile/20010115.f
+++ b/gcc/testsuite/g77.f-torture/compile/20010115.f
@@ -1,3 +1,4 @@
+* GNATS PR Fortran/1636
       PRINT 42, 'HELLO'
    42 FORMAT(A)
       CALL WORLD

diff --git a/gcc/testsuite/g77.f-torture/execute/20010116.f b/gcc/testsuite/g77.f-torture/execute/20010116.f
new file mode 100644 (file)
index 0000000..7c72a08
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/execute/20010116.f
@@ -0,0 +1,38 @@
+*
+*  Derived from LAPACK 3.0 routine CHGEQZ
+*  Fails on i686-pc-cygwin with gcc-2.97 snapshots at -O2 and higher
+*  PR fortran/1645
+*
+*  David Billinghurst, (David.Billinghurst@riotinto.com)
+*  14 January 2001
+*  Rewritten by Toon Moene (toon@moene.indiv.nluug.nl)
+*  15 January 2001
+* 
+      COMPLEX A(5,5)
+      DATA A/25*(0.0,0.0)/
+      A(4,3) = (0.05,0.2)/3.0E-7
+      A(4,4) = (-0.03,-0.4)
+      A(5,4) = (-2.0E-07,2.0E-07)
+      CALL CHGEQZ( 5, A )
+      END
+      SUBROUTINE CHGEQZ( N, A )
+      COMPLEX   A(N,N), X
+      ABS1( X ) = ABS( REAL( X ) ) + ABS( AIMAG( X ) )
+      DO J = 4, 2, -1
+         I = J
+         TEMP  = ABS1( A(J,J) )
+         TEMP2 = ABS1( A( J+1, J ) )
+         TEMPR = MAX( TEMP, TEMP2 )
+         IF( TEMPR .LT. 1.0 .AND. TEMPR .NE. 0.0 ) THEN
+            TEMP  = TEMP / TEMPR
+            TEMP2 = TEMP2 / TEMPR
+         END IF
+         IF ( ABS1(A(J,J-1))*TEMP2 .LE. TEMP ) GO TO 90
+      END DO
+c     Should not reach here, but need a statement
+      PRINT*
+  90  IF ( I .NE. 4 ) THEN
+         PRINT*,'I =', I, ' but should be 4'
+         CALL ABORT()
+      END IF
+      END

diff --git a/gcc/testsuite/g77.f-torture/execute/20010116.x b/gcc/testsuite/g77.f-torture/execute/20010116.x
new file mode 100644 (file)
index 0000000..93d817a
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/execute/20010116.x
@@ -0,0 +1,2 @@
+set torture_execute_xfail "i?86-*-*"
+return 0