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