b.f90

program exceptions
implicit none
integer :: s, stat

call mysum(5, s, stat)
if (stat /= 0) error stop
print *, s

! Equivalent to the above
try mysum(5, s, stat)
print *, s

! This will fail in 'allocate' below
call mysum(5, s)
print *, s

contains

    subroutine mysum(n, s, stat)
    integer, intent(in) :: n
    integer, intent(out), optional :: stat
    integer, intent(out) :: s
    integer, allocatable :: A(:)
    integer :: i
    try myallocate(n, A, stat=stat)
    do i = 1, n
        A(i) = i
    end do
    s = sum(A)
    end subroutine

    subroutine myallocate(n, A, stat)
    integer, intent(in) :: n
    integer, intent(out), optional :: stat
    integer, allocatable, intent(out) :: A(:)
    integer :: mystat
    allocate(A(n), stat=stat)
    end subroutine

end