1 subroutine foo 2# 18 "src/badline.F" 2 3 end 4! { dg-warning "left but not entered" "" { target *-*-* } 2 } 5