unit_test_l1 Subroutine

private subroutine unit_test_l1(this, res, expected, msg)

Type Bound

unit_test

Arguments

Type IntentOptional Attributes Name
class(unit_test), intent(inout) :: this
logical, intent(in), dimension(:) :: res
logical, intent(in), dimension(:) :: expected
character(len=*), intent(in), optional :: msg

Calls

proc~~unit_test_l1~~CallsGraph proc~unit_test_l1 forunittest::unit_test%unit_test_l1 proc~print_msg forunittest::unit_test%print_msg proc~unit_test_l1->proc~print_msg colorize colorize proc~print_msg->colorize

Called by

proc~~unit_test_l1~~CalledByGraph proc~unit_test_l1 forunittest::unit_test%unit_test_l1 none~check forunittest::unit_test%check none~check->proc~unit_test_l1 program~demo demo program~demo->none~check program~test test program~test->none~check

Source Code

   subroutine unit_test_l1(this, res, expected, msg)
      class(unit_test), intent(inout) :: this
      logical, intent(in), dimension(:) :: res, expected
      character(*), intent(in), optional :: msg
      logical :: condition

      if (present(msg)) then
         this%msg = msg
      else
         this%msg = 'forunittest'
      end if

      condition = all(res .eqv. expected)

      call this%print_msg(condition)
   end subroutine unit_test_l1