! { dg-do run } | |
! PR fortran/87401 - this used to segfault at runtime. | |
! Test case by Janus Weil. | |
program assoc_intent_out | |
implicit none | |
real :: r | |
associate(o => r) | |
call sub(o) | |
end associate | |
contains | |
subroutine sub(out) | |
real, intent(out) :: out | |
out = 0.0 | |
end subroutine | |
end | |