path: root/gcc/testsuite/gfortran.dg/pr107679.f90

! { dg-do compile }

subroutine s1(x)
   integer, intent(out) :: x
end
subroutine s2(z)
   integer, value :: z
   call s1(z)
end