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