+
−! { 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