1! PR 14038- 'H' in hollerith causes mangling of string
2program hollerith
3  IMPLICIT NONE
4  CHARACTER*4 LINE
5100 FORMAT (4H12H4)
6  WRITE(LINE,100)
7  IF (LINE .NE. '12H4') call abort ()
8end
9
10