1! { dg-do compile } 2! PR18923 segfault after subroutine name confusion. 3module FOO 4contains 5 subroutine FOO ! { dg-error "conflicts with PROCEDURE" } 6 character(len=selected_int_kind(0)) :: C ! { dg-error "data declaration statement" } 7 end subroutine ! { dg-error "Expecting END MODULE statement" } 8end 9