PR libfortran/23262
[official-gcc.git] / gcc / testsuite / gfortran.dg / same_name_1.f90
blobcbeb875e36b3eabc376fd14ff482549740b64807
1 ! { dg-do assemble }
2 module n
3 private u
4 contains
5 subroutine u
6 end subroutine u
7 end module n
8 module m
9 private :: u
10 contains
11 subroutine u
12 end subroutine u
13 end module m