1! RUN: %S/test_symbols.sh %s %t %f18 2! Statement functions 3 4!DEF: /p1 MainProgram 5program p1 6 !DEF: /p1/f (Function, StmtFunction) Subprogram INTEGER(4) 7 !DEF: /p1/i ObjectEntity INTEGER(4) 8 !DEF: /p1/j ObjectEntity INTEGER(4) 9 integer f, i, j 10 !REF: /p1/f 11 !REF: /p1/i 12 !DEF: /p1/f/i ObjectEntity INTEGER(4) 13 f(i) = i + 1 14 !REF: /p1/j 15 !REF: /p1/f 16 j = f(2) 17end program 18 19!DEF: /p2 MainProgram 20program p2 21 !DEF: /p2/f (Function, StmtFunction) Subprogram REAL(4) 22 !DEF: /p2/f/x (Implicit) ObjectEntity REAL(4) 23 !DEF: /p2/y (Implicit) ObjectEntity REAL(4) 24 f(x) = y 25 !REF: /p2/y 26 y = 1.0 27end program 28