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) 98000 format(36(2H!))) 10 do i = 1,72,2 11 if (c(i:i+1) /= '!)') call abort 12 end do 13 end 14