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