failed_assert_action Subroutine

public subroutine failed_assert_action(expected, got, message, if_is)

Print message to screen and take necessary actions for assert failure.

Arguments

Type IntentOptional AttributesName
character(len=*), intent(in) :: expected
character(len=*), intent(in) :: got
character(len=*), intent(in), optional :: message
logical, intent(in), optional :: if_is

Contents

None