Update ChangeLog and version files for release
[official-gcc.git] / gcc / testsuite / gfortran.dg / use_28.f90
blob4972bea4f7ebeb224b94a27108a9f05338651774
1 ! { dg-do compile }
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.
7 ! Contributed by Tobias Burnus <burnus@net-b.de>
9 module m
10 end module m
12 call m
13 contains
14 subroutine m()
15 use m ! { dg-error "is also the name of the current program unit" }
16 end subroutine m
17 end