fatal_error Subroutine

public subroutine fatal_error(error, message)

Generic fatal runtime error

Arguments

Type IntentOptional Attributes Name
type(error_t), intent(out), allocatable :: error

Instance of the error data
character(len=*), intent(in) :: message

Error message

Source Code

    subroutine fatal_error(error, message)

        !> Instance of the error data
        type(error_t), allocatable, intent(out) :: error

        !> Error message
        character(len=*), intent(in) :: message

        allocate(error)
        error%message = message

    end subroutine fatal_error