mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
51 lines
1.1 KiB
Fortran
51 lines
1.1 KiB
Fortran
! { 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
|
|
USE MOO, ONLY: C ! { dg-error "is also the name of the current program unit" }
|
|
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
|
|
USE MOO, ONLY: X => G ! { dg-error "is also the name of the current program unit" }
|
|
END SUBROUTINE X
|
|
|
|
SUBROUTINE Y
|
|
USE MOO, ONLY: Y => H ! { dg-error "is also the name of the current program unit" }
|
|
END SUBROUTINE Y
|
|
|
|
SUBROUTINE Z
|
|
USE MOO, ONLY: Z => I, Z => I ! { dg-error "is also the name of the current program unit" }
|
|
END SUBROUTINE Z
|
|
|