OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

Browse Source 
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
This commit is contained in:
Toon Moene 2001-01-16 00:55:39 +01:00 committed by Toon Moene
parent 4cf12e7e21
commit c5a9e845e5
4 changed files with 48 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/testsuite/ChangeLog
View File

@ -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.

1
gcc/testsuite/g77.f-torture/compile/20010115.f
View File

@ -1,3 +1,4 @@
* GNATS PR Fortran/1636
PRINT 42, 'HELLO'
42 FORMAT(A)
CALL WORLD

38
gcc/testsuite/g77.f-torture/execute/20010116.f Normal file
View File

@ -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

2
gcc/testsuite/g77.f-torture/execute/20010116.x Normal file
View File

@ -0,0 +1,2 @@
set torture_execute_xfail "i?86-*-*"
return 0