! { dg-do compile }
! PR71686
program p
   character(8) :: z = 'abc& ! { dg-error "Unterminated character constant" }
!end
! { dg-error "Unexpected end of file" "" { target *-*-* } 0 }