diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/use_rename_4.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/use_rename_4.f90 | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/use_rename_4.f90 b/gcc/testsuite/gfortran.dg/use_rename_4.f90 new file mode 100644 index 000000000..e0e83b891 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/use_rename_4.f90 @@ -0,0 +1,22 @@ +! { 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 + CALL abort () + END IF +END PROGRAM main |