[Bug middle-end/38868] [4.4 Regression] r143152 breaks output routines in xplor-nih
dominiq at lps dot ens dot fr
gcc-bugzilla@gcc.gnu.org
Sat Jan 17 23:48:00 GMT 2009
------- Comment #26 from dominiq at lps dot ens dot fr 2009-01-17 23:48 -------
Further reduced test case:
PROGRAM testcase
IMPLICIT NONE
INTEGER NENERT
PARAMETER (NENERT=62)
CHARACTER*4 ANER(NENERT)
CHARACTER*80 LINE
INTEGER PUNIT
PUNIT = 6
aner = ''
ANER(5)='BOND'
ANER(6)='ANGL'
LINE=' '
LINE(2:2)='|'
LINE(80:80)='|'
write (10,*) "'", line, "'"
WRITE(PUNIT,'(A80)') LINE
END
[ibook-dhum] f90/bug% cat fort.10
' |
'
If I comment one of the two lines:
ANER(5)='BOND'
ANER(6)='ANGL'
the bug disappears.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=38868
More information about the Gcc-bugs
mailing list