Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/use_28.f90 @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
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
9 module m
10 end module m
11
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
18