check_logicalToReal Subroutine

  1. tem_logical_operator_test.f90
  2. tem_logical_opertor_test
  3. check_logicalToReal

subroutine check_logicalToReal(res)

Arguments

Type IntentOptional AttributesName
logical, intent(inout) :: res

Calls

proc~~check_logicaltoreal~~CallsGraph proc~check_logicaltoreal check_logicalToReal proc~checkresult checkResult proc~check_logicaltoreal->proc~checkresult proc~logicaltoreal logicalToReal proc~check_logicaltoreal->proc~logicaltoreal

Called by

proc~~check_logicaltoreal~~CalledByGraph proc~check_logicaltoreal check_logicalToReal program~tem_logical_opertor_test tem_logical_opertor_test program~tem_logical_opertor_test->proc~check_logicaltoreal

Contents

Source Code

check_logicalToReal

Source Code

  subroutine check_logicalToReal(res)
    logical, intent(inout) :: res

    res = res .and. (logicalToReal(.true.) .feq. numTrue)
    call checkResult( res, 'Test logicalToReal(.true.) .feq. numTrue failed' )
    res = res .and..not. (logicalToReal(.true.) .feq. numFalse)
    call checkResult( res, 'Test logicalToReal(.true.) .feq. numFalse failed' )
    res = res .and. (logicalToReal(.false.) .feq. numFalse)
    call checkResult( res, 'Test logicalToReal(.false.) .feq. numFalse failed' )
    res = res .and..not. (logicalToReal(.false.) .feq. numTrue)
    call checkResult( res, 'Test logicalToReal(.false.) .feq. numTrue failed' )

  end subroutine check_logicalToReal