check_realToLogical Subroutine

  1. tem_logical_operator_test.f90
  2. tem_logical_opertor_test
  3. check_realToLogical

subroutine check_realToLogical(res)

Arguments

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

Calls

proc~~check_realtological~~CallsGraph proc~check_realtological check_realToLogical proc~realtological realToLogical proc~check_realtological->proc~realtological proc~checkresult checkResult proc~check_realtological->proc~checkresult

Called by

proc~~check_realtological~~CalledByGraph proc~check_realtological check_realToLogical program~tem_logical_opertor_test tem_logical_opertor_test program~tem_logical_opertor_test->proc~check_realtological

Contents

Source Code

check_realToLogical

Source Code

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

    res = res .and..not. realToLogical(numFalse)
    call checkResult( res, 'Test realToLogical(numFalse) failed' )
    res = res .and. realToLogical(numTrue)
    call checkResult( res, 'Test realToLogical(numTrue) failed' )
    res = res .and. realToLogical(0._rk+spacing(0._rk))
    call checkResult( res, 'Test realToLogical(0._rk+spacing(0._rk)) failed' )
    res = res .and. realToLogical(huge(0._rk))
    call checkResult( res, 'Test realToLogical(huge(0._rk)) failed' )
    res = res .and. realToLogical(tiny(0._rk))
    call checkResult( res, 'Test realToLogical(tiny(0._rk)) failed' )

  end subroutine check_realToLogical