flang/test/Semantics/symbol16.f90

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