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
7MODULE m
8  IMPLICIT NONE
9  INTEGER :: i
10END MODULE m
11
12PROGRAM 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
22END PROGRAM main
23