mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
9 lines
310 B
Fortran
9 lines
310 B
Fortran
! { dg-do compile }
|
|
! PR18923 segfault after subroutine name confusion.
|
|
module FOO
|
|
contains
|
|
subroutine FOO ! { dg-error "conflicts with PROCEDURE" }
|
|
character(len=selected_int_kind(0)) :: C ! { dg-error "data declaration statement" }
|
|
end subroutine ! { dg-error "Expecting END MODULE statement" }
|
|
end
|