gcc/testsuite/gfortran.dg/use_rename_4.f90

   1 ! { dg-do run }
   2
   3 ! PR fortran/37193
   4 ! Check fix for problem with re-using the same symbol both renamed and
   5 ! plain.
   6
   7 MODULE m
   8   IMPLICIT NONE
   9   INTEGER :: i
  10 END MODULE m
  11
  12 PROGRAM main
  13   USE m, ONLY: i, j => i
  14   IMPLICIT NONE
  15
  16   i = 4
  17   j = 5
  18
  19   IF (i /= j) THEN
  20     CALL abort ()
  21   END IF
  22 END PROGRAM main