hppa64: Fix fmt_f_default_field_width_3.f90 and fmt_g_default_field_width_3.f90
[official-gcc.git] / gcc / testsuite / gfortran.dg / hollerith_1.f90
blobfc163d83f37bf61c8dc73a825c7b472974d10d13
1 ! { dg-do run }
2 ! { dg-options "-std=legacy" }
4 ! PR 21260
5 ! We wrongly interpreted the '!' as the beginning of a comment.
6 ! Also verifies the functioning of hollerith formatting.
7 character*72 c
8 write(c,8000)
9 8000 format(36(2H!)))
10 do i = 1,72,2
11 if (c(i:i+1) /= '!)') STOP 1
12 end do
13 end