| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real, | public | :: | infinity |
character(len=*),parameter :: line=’infinity’ |
|||
| character(len=8), | public | :: | line | = | 'infinity' |
subroutine test_anyscalar_to_real() real :: infinity !!character(len=*),parameter :: line='infinity' character(len=8) :: line='infinity' read(line,*)infinity call unit_check_start('anyscalar_to_real',msg='') call unit_check('anyscalar_to_real',anyscalar_to_real(huge(0_int8)) .eq. real(huge(0_int8)), huge(0_int8)) call unit_check('anyscalar_to_real',anyscalar_to_real(huge(0_int16)) .eq. real(huge(0_int16)), huge(0_int16)) call unit_check('anyscalar_to_real',anyscalar_to_real(huge(0_int32)) .eq. real(huge(0_int32)), huge(0_int32)) call unit_check('anyscalar_to_real',anyscalar_to_real(huge(0_int64)) .eq. real(huge(0_int64)), huge(0_int64)) call unit_check('anyscalar_to_real',anyscalar_to_real(huge(0.0_real32)) .eq. real(huge(0.0_real32)), huge(0.0_real32)) call unit_check('anyscalar_to_real',anyscalar_to_real(huge(0.0_real64)) .eq. infinity, huge(0.0_real64)) call unit_check('anyscalar_to_real',anyscalar_to_real(huge(0.0_real128)).eq. infinity, huge(0.0_real128)) call unit_check('anyscalar_to_real',anyscalar_to_real(1234.0_real64) .eq. 1234.0_real64, 1234.0_real64) call unit_check('anyscalar_to_real',anyscalar_to_real(1234.0_real128) .eq. 1234.0_real128, 1234.0_real128) call unit_check_done('anyscalar_to_real',msg='') end subroutine test_anyscalar_to_real