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