16 lines · plain
1! RUN: %python %S/test_symbols.py %s %flang_fc12!DEF: /MAIN MainProgram3program MAIN4 !DEF: /MAIN/x POINTER ObjectEntity REAL(4)5 pointer :: x6 !REF: /MAIN/x7 real x8 !DEF: /MAIN/y EXTERNAL, POINTER (Function) ProcEntity REAL(4)9 pointer :: y10 !REF: /MAIN/y11 procedure (real) :: y12 !DEF: /MAIN/z (Implicit) ObjectEntity REAL(4)13 !REF: /MAIN/y14 z = y()15end program16