llvm-project/flang/test/Semantics/symbol03.f90

18 lines
378 B
Fortran

! RUN: %S/test_symbols.sh %s %flang %t
! Test host association in internal subroutine of main program.
!DEF: /main MainProgram
program main
!DEF: /main/x ObjectEntity INTEGER(4)
integer x
!DEF: /main/s (Subroutine) Subprogram
call s
contains
!REF: /main/s
subroutine s
!DEF: /main/s/y (Implicit) ObjectEntity REAL(4)
!REF: /main/x
y = x
end subroutine
end program