! { dg-do compile } | |
! PR fortran/37193 | |
! Check that renamed symbols are not accessiable uner their target name. | |
MODULE m | |
IMPLICIT NONE | |
INTEGER :: i | |
END MODULE m | |
PROGRAM main | |
USE m, ONLY: j => i | |
IMPLICIT NONE | |
i = 4 ! { dg-error "no IMPLICIT type" } | |
j = 5 | |
END PROGRAM main |