hollerith.f90 « execute « gfortran.fortran-torture « testsuite « gcc - cbb-gcc-4.6.4 - compiler building blocks: cbb-gcc-4.6.4: including full support for the midipix targets

summary refs log tree commit diff

path: root/gcc/testsuite/gfortran.fortran-torture/execute/hollerith.f90

blob: aa7b17def7563dc98bfb3df124334bafdba971ea (plain)

! PR 14038- 'H' in hollerith causes mangling of string
program hollerith
  IMPLICIT NONE
  CHARACTER*4 LINE
100 FORMAT (4H12H4)
  WRITE(LINE,100)
  IF (LINE .NE. '12H4') call abort ()
end