13 lines · plain
1!RUN: %flang_fc1 -fsyntax-only %s2!Regression test for crash in semantics on Cray pointers3 4module m5 pointer(ptr,pp)6end module m7 8program main9 use m, only:renamea=>pp10 use m, only:pp11 print *, renamea12end13 1!RUN: %flang_fc1 -fsyntax-only %s2!Regression test for crash in semantics on Cray pointers3 4module m5 pointer(ptr,pp)6end module m7 8program main9 use m, only:renamea=>pp10 use m, only:pp11 print *, renamea12end13