blob: 3f57809e0999581c5bb4ea46f7836e5fafa4d58e [file] [log] [blame]
! { dg-do compile }
! PR103506 ICE in gfc_free_namespace. ice-on-invalid
! Test case from the PR.
module m ! { dg-error "is already being used as a MODULE" }
stop ! { dg-error "Unexpected STOP statement in MODULE" }
end
program p
call m ! { dg-error "is already being used as a MODULE" }
end