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