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

[dominiq at lps dot ens dot fr]

------- Comment #27 from dominiq at lps dot ens dot fr  2009-01-18 12:00 -------
Further reduced test case:

      PROGRAM testcase
      IMPLICIT NONE

      CHARACTER*4 ANER(18)
      CHARACTER*80 LINE
      aner = ''
      ANER(1)='A   '
      ANER(2)='    '
      LINE=' '
      LINE(78:80)='xyz'
      WRITE(*,'(A82)') "'"//LINE//"'"
      END

With this test almost any change remove the bug: the lenght of line has to be
80, the size of the array ANER has to be 18 or larger, LINE has to be
initialized with ' ' and not '', the two ANER elements have to contain at least
one nonblank character, ANER has to be initialized before its two elements, ...
.


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=38868