This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug middle-end/38868] [4.4 Regression] r143152 breaks output routines in xplor-nih
- From: "dominiq at lps dot ens dot fr" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 17 Jan 2009 23:48:39 -0000
- Subject: [Bug middle-end/38868] [4.4 Regression] r143152 breaks output routines in xplor-nih
- References: <bug-38868-11113@http.gcc.gnu.org/bugzilla/>
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
------- 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