18 lines
287 B
Fortran
18 lines
287 B
Fortran
|
! { 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
|