[Bug middle-end/38868] [4.4 Regression] r143152 breaks output routines in xplor-nih

[dominiq at lps dot ens dot fr]

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