c.f90

program exceptions
implicit none
integer :: s, stat_manual
integer, status :: stat

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

! Equivalent to the above
call 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, status :: stat
    integer, intent(out) :: s
    integer, allocatable :: A(:)
    integer :: i
    call 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, status :: stat
    integer, allocatable, intent(out) :: A(:)
    integer :: mystat
    ! This assumes that `allocate` works with the STATUS attribute
    allocate(A(n), stat=stat)
    end subroutine

end