gcc/testsuite/gfortran.dg/use_rename_5.f90

   1 ! { dg-do compile }
   2
   3 ! PR fortran/37193
   4 ! Check that renamed symbols are not accessiable uner their target name.
   5
   6 MODULE m
   7   IMPLICIT NONE
   8   INTEGER :: i
   9 END MODULE m
  10
  11 PROGRAM main
  12   USE m, ONLY: j => i
  13   IMPLICIT NONE
  14
  15   i = 4 ! { dg-error "no IMPLICIT type" }
  16   j = 5
  17 END PROGRAM main