gcc/testsuite/gfortran.dg/hollerith_1.f90

   1 ! { dg-do run }
   2 ! PR 21260
   3 ! We wrongly interpreted the '!' as the beginning of a comment.
   4 ! Also verifies the functioning of hollerith formatting.
   5       character*72 c
   6       write(c,8000)
   7 8000  format(36(2H!)))
   8       do i = 1,72,2
   9          if (c(i:i+1) /= '!)') call abort
  10       end do
  11       end