Ignoring revisions in .git-blame-ignore-revs. Click here to bypass and see the normal blame view.
! RUN: %S/test_symbols.sh %s %t %f18
! 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)
!DEF: /main/s/x HostAssoc INTEGER(4)
y = x
!DEF: /main/s/s2 (Subroutine) Subprogram
subroutine s2
!DEF: /main/s/s2/z (Implicit) ObjectEntity REAL(4)
!DEF: /main/s/s2/x HostAssoc INTEGER(4)
z = x
end subroutine
end program