1! { dg-do compile }
2subroutine bar1
3  usefoo ! { dg-error "Unclassifiable statement" }
4end
5