flang/test/Semantics/symbol16.f90

   1 ! RUN: %python %S/test_symbols.py %s %flang_fc1
   2 ! Statement functions
   3
   4 !DEF: /p1 MainProgram
   5 program 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)
  17 end program
  18
  19 !DEF: /p2 (Subroutine)Subprogram
  20 subroutine 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
  27 end subroutine