gcc/testsuite/gfortran.dg/hollerith_1.f90

   1 ! { dg-do run }
   2 ! { dg-options "-std=legacy" }
   3 !
   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) /= '!)') call abort
  12       end do
  13       end