program subroutines_10
implicit none
real :: x

call subroutines_10_sub(x, 3, *100, *200)
if (x < 0 .and. x > 10) then
    error stop
end if
stop

100 print *, "Negative input value"
error stop

200 print *, "Input value too large"
error stop
end program subroutines_10


subroutine subroutines_10_sub(x, i, *, *)
real, intent(out) :: x
integer, intent(in) :: i
if (i < 0) then
    return 1
end if
if (i > 10) then
    return 2
end if
x = i
end subroutine subroutines_10_sub
