! { dg-do compile } | |
! | |
! PR fortran/47203 | |
! The USE statement of a module was not rejected in a procedure with the same | |
! name if the procedure was contained. | |
! | |
! Contributed by Tobias Burnus <burnus@net-b.de> | |
module m | |
end module m | |
call m | |
contains | |
subroutine m() | |
use m ! { dg-error "is also the name of the current program unit" } | |
end subroutine m | |
end | |