Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/use_rename_4.f90 @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { 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