diff options
| author | Toon Moene <toon@moene.indiv.nluug.nl> | 2001-01-16 00:55:39 +0100 |
|---|---|---|
| committer | Toon Moene <toon@gcc.gnu.org> | 2001-01-15 23:55:39 +0000 |
| commit | c5a9e845e5387d88031aec6e2c09219d960f4384 (patch) | |
| tree | 6a0cb701e96a56994940acbf9a493ddcb36d637d /gcc | |
| parent | 4cf12e7e218267a97ce026848fcff54713e1483d (diff) | |
| download | gcc-c5a9e845e5387d88031aec6e2c09219d960f4384.zip gcc-c5a9e845e5387d88031aec6e2c09219d960f4384.tar.gz gcc-c5a9e845e5387d88031aec6e2c09219d960f4384.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/compile/20010115.f | 1 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/20010116.f | 38 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/20010116.x | 2 |
4 files changed, 48 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 2c6ff5a..6cee7bb 100644 --- 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 71e8c69..8cf85a8 100644 --- 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 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 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 |