28 lines · plain
1! RUN: %python %S/test_symbols.py %s %flang_fc12! Statement functions3 4!DEF: /P1 MainProgram5program P16 !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, j10 !REF: /P1/f11 !REF: /P1/i12 !DEF: /P1/f/i ObjectEntity INTEGER(4)13 f(i) = i + 114 !REF: /P1/j15 !REF: /P1/f16 j = f(2)17end program18 19!DEF: /p2 (Subroutine)Subprogram20subroutine p221 !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) = y25 !REF: /p2/y26 y = 1.027end subroutine28