blob: b710bc69019794598198063f30ed3e140bfcd8c1 [file] [log] [blame]
! RUN: %python %S/test_symbols.py %s %flang_fc1
! Statement functions
!DEF: /p1 MainProgram
program p1
!DEF: /p1/f (Function, StmtFunction) Subprogram INTEGER(4)
!DEF: /p1/i ObjectEntity INTEGER(4)
!DEF: /p1/j ObjectEntity INTEGER(4)
integer f, i, j
!REF: /p1/f
!REF: /p1/i
!DEF: /p1/f/i ObjectEntity INTEGER(4)
f(i) = i + 1
!REF: /p1/j
!REF: /p1/f
j = f(2)
end program
!DEF: /p2 MainProgram
program p2
!DEF: /p2/f (Function, StmtFunction) Subprogram REAL(4)
!DEF: /p2/f/x (Implicit) ObjectEntity REAL(4)
!DEF: /p2/y (Implicit) ObjectEntity REAL(4)
f(x) = y
!REF: /p2/y
y = 1.0
end program