Fortran/gfortran/regression/pr107679.f90 - llvm-test-suite - Git at Google

 ! { dg-do compile }

 subroutine s1(x)
    integer, intent(out) :: x
 end
 subroutine s2(z)
    integer, value :: z
    call s1(z)
 end
	! { dg-do compile }

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