! { dg-do run } | |
! PR fortran/37193 | |
! Check fix for problem with re-using the same symbol both renamed and | |
! plain. | |
MODULE m | |
IMPLICIT NONE | |
INTEGER :: i | |
END MODULE m | |
PROGRAM main | |
USE m, ONLY: i, j => i | |
IMPLICIT NONE | |
i = 4 | |
j = 5 | |
IF (i /= j) THEN | |
STOP 1 | |
END IF | |
END PROGRAM main |