1! RUN: %S/test_symbols.sh %s %t %flang_fc1 2! REQUIRES: shell 3!DEF: /main MainProgram 4program main 5 !DEF: /main/x POINTER ObjectEntity REAL(4) 6 pointer :: x 7 !REF: /main/x 8 real x 9 !DEF: /main/y EXTERNAL, POINTER (Function) ProcEntity REAL(4) 10 pointer :: y 11 !REF: /main/y 12 procedure (real) :: y 13 !DEF: /main/z (Implicit) ObjectEntity REAL(4) 14 !REF: /main/y 15 z = y() 16end program 17