blob: 3d7839a0d121f5750bd733afbf40a5539c3f2115 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
! { 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
|
