Remove old autovect-branch by moving to "dead" directory.
[official-gcc.git] / old-autovect-branch / gcc / testsuite / gfortran.fortran-torture / execute / hollerith.f90
blobaa7b17def7563dc98bfb3df124334bafdba971ea
1 ! PR 14038- 'H' in hollerith causes mangling of string
2 program hollerith
3 IMPLICIT NONE
4 CHARACTER*4 LINE
5 100 FORMAT (4H12H4)
6 WRITE(LINE,100)
7 IF (LINE .NE. '12H4') call abort ()
8 end