4 ! duplicate use rename used to be rejected when the target name
5 ! was that of the current program unit
7 ! Original testcase from Roger Ferrer Ibanez <roger.ferrer@bsc.es>
10 INTEGER :: A
, B
, C
, D
, E
, F
, G
, H
, I
14 USE MOO
, ONLY
: X
=> A
, X
=> A
22 SUBROUTINE C
! { dg-error "\(1\)" }
23 USE MOO
, ONLY
: C
! { dg-error "conflicts with the" }
31 USE MOO
, ONLY
: X
=> E
, X
=> E
39 SUBROUTINE X
! { dg-error "\(1\)" }
40 USE MOO
, ONLY
: X
=> G
! { dg-error "conflicts with the rename" }
43 SUBROUTINE Y
! { dg-error "\(1\)" }
44 USE MOO
, ONLY
: Y
=> H
! { dg-error "conflicts with the rename" }
47 SUBROUTINE Z
! { dg-error "\(1\)" }
48 USE MOO
, ONLY
: Z
=> I
, Z
=> I
! { dg-error "conflicts with the rename" }