program reserved_01
implicit none
if (end(1, 2) /= 2) then
    error stop
end if
if (end(2, 1) /= 2) then
    error stop
end if


contains

integer function end(return, integer) result(function); ; ; ; integer :: integer, return; ; ; ; ; ; ; ; function = return; if (return > integer) then
    return
end if; ; ; ; ; function = integer; ; end function end; ; ; ; 


end program reserved_01
