gcc/testsuite/gfortran.dg/use_rename_8.f90

! { dg-do compile }
!
! PR fortran/63744
! duplicate use rename used to be rejected when the target name
! was that of the current program unit 
!
! Original testcase from Roger Ferrer Ibanez <roger.ferrer@bsc.es>

MODULE MOO
    INTEGER :: A, B, C, D, E, F, G, H, I
END MODULE MOO

SUBROUTINE S
    USE MOO, ONLY: X => A, X => A
END SUBROUTINE S

SUBROUTINE T
    USE MOO, ONLY: X => B
    USE MOO, ONLY: X => B
END SUBROUTINE T

SUBROUTINE C          ! { dg-error "\(1\)" }
    USE MOO, ONLY: C  ! { dg-error "conflicts with the" }
END SUBROUTINE C

SUBROUTINE D
    USE MOO, ONLY: X => D
END SUBROUTINE D

SUBROUTINE E
    USE MOO, ONLY: X => E, X => E
END SUBROUTINE E

SUBROUTINE F
    USE MOO, ONLY: X => F
    USE MOO, ONLY: X => F
END SUBROUTINE F

SUBROUTINE X              ! { dg-error "\(1\)" }
    USE MOO, ONLY: X => G ! { dg-error "conflicts with the rename" }
END SUBROUTINE X

SUBROUTINE Y              ! { dg-error "\(1\)" }
    USE MOO, ONLY: Y => H ! { dg-error "conflicts with the rename" }
END SUBROUTINE Y

SUBROUTINE Z                        ! { dg-error "\(1\)" }
    USE MOO, ONLY: Z => I, Z => I   ! { dg-error "conflicts with the rename" }
END SUBROUTINE Z