1! { dg-do compile } 2! 3! PR fortran/47203 4! The USE statement of a module was not rejected in a procedure with the same 5! name if the procedure was contained. 6! 7! Contributed by Tobias Burnus <burnus@net-b.de> 8 9module m 10end module m 11 12call m 13contains 14 subroutine m() 15 use m ! { dg-error "is also the name of the current program unit" } 16 end subroutine m 17end 18 19