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