test_print Subroutine

public subroutine test_print(test_name, message, test_pass)

Print the result of a test to the terminal

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: test_name

Name of the test being run
character(len=*), intent(in) :: message

Message to print
logical, intent(in) :: test_pass

Result of the value comparison

Called by

proc~~test_print~~CalledByGraph proc~test_print test_print proc~allclose_real32_1d allclose_real32_1d proc~allclose_real32_1d->proc~test_print proc~allclose_real32_2d allclose_real32_2d proc~allclose_real32_2d->proc~test_print proc~allclose_real32_3d allclose_real32_3d proc~allclose_real32_3d->proc~test_print proc~allclose_real64_1d allclose_real64_1d proc~allclose_real64_1d->proc~test_print proc~allclose_real64_2d allclose_real64_2d proc~allclose_real64_2d->proc~test_print proc~allclose_real64_3d allclose_real64_3d proc~allclose_real64_3d->proc~test_print proc~isclose_real32 isclose_real32 proc~isclose_real32->proc~test_print proc~isclose_real64 isclose_real64 proc~isclose_real64->proc~test_print interface~allclose allclose interface~allclose->proc~allclose_real32_1d interface~allclose->proc~allclose_real32_2d interface~allclose->proc~allclose_real32_3d interface~allclose->proc~allclose_real64_1d interface~allclose->proc~allclose_real64_2d interface~allclose->proc~allclose_real64_3d interface~isclose isclose interface~isclose->proc~isclose_real32 interface~isclose->proc~isclose_real64 proc~assert_allclose_real32_1d assert_allclose_real32_1d proc~assert_allclose_real32_1d->proc~allclose_real32_1d proc~assert_allclose_real32_2d assert_allclose_real32_2d proc~assert_allclose_real32_2d->proc~allclose_real32_2d proc~assert_allclose_real32_3d assert_allclose_real32_3d proc~assert_allclose_real32_3d->proc~allclose_real32_3d proc~assert_allclose_real64_1d assert_allclose_real64_1d proc~assert_allclose_real64_1d->proc~allclose_real64_1d proc~assert_allclose_real64_2d assert_allclose_real64_2d proc~assert_allclose_real64_2d->proc~allclose_real64_2d proc~assert_allclose_real64_3d assert_allclose_real64_3d proc~assert_allclose_real64_3d->proc~allclose_real64_3d proc~assert_isclose_real32 assert_isclose_real32 proc~assert_isclose_real32->proc~isclose_real32 proc~assert_isclose_real64 assert_isclose_real64 proc~assert_isclose_real64->proc~isclose_real64 interface~assert_allclose assert_allclose interface~assert_allclose->proc~assert_allclose_real32_1d interface~assert_allclose->proc~assert_allclose_real32_2d interface~assert_allclose->proc~assert_allclose_real32_3d interface~assert_allclose->proc~assert_allclose_real64_1d interface~assert_allclose->proc~assert_allclose_real64_2d interface~assert_allclose->proc~assert_allclose_real64_3d interface~assert_isclose assert_isclose interface~assert_isclose->proc~assert_isclose_real32 interface~assert_isclose->proc~assert_isclose_real64

Source Code

    subroutine test_print(test_name, message, test_pass)

      character(len=*), intent(in) :: test_name  !! Name of the test being run
      character(len=*), intent(in) :: message    !! Message to print
      logical, intent(in) :: test_pass           !! Result of the value comparison

      character(len=15) :: report

      if (test_pass) then
        report = char(27)//'[32m'//'PASSED'//char(27)//'[0m'
      else
        report = char(27)//'[31m'//'FAILED'//char(27)//'[0m'
      end if
      write(*, '(A, " :: [", A, "] ", A)') report, trim(test_name), trim(message)
    end subroutine test_print