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