compact_real Program

  1. compact_real.f90
  2. compact_real
program~~compact_real~~UsesGraph program~compact_real compact_real iso_fortran_env iso_fortran_env iso_fortran_env->program~compact_real module~penf_stringify penf_stringify iso_fortran_env->module~penf_stringify module~penf penf module~penf->program~compact_real module~penf_global_parameters_variables penf_global_parameters_variables module~penf_global_parameters_variables->module~penf module~penf_b_size penf_b_size module~penf_global_parameters_variables->module~penf_b_size module~penf_global_parameters_variables->module~penf_stringify module~penf_b_size->module~penf module~penf_b_size->module~penf_stringify module~penf_stringify->module~penf
Help


PENF's testing program.

Calls

program~~compact_real~~CallsGraph program~compact_real compact_real proc~penf_init penf_init program~compact_real->proc~penf_init interface~str str program~compact_real->interface~str proc~check_endian check_endian proc~penf_init->proc~check_endian proc~strf_i2p strf_I2P interface~str->proc~strf_i2p proc~strf_i4p strf_I4P interface~str->proc~strf_i4p proc~str_a_i2p str_a_I2P interface~str->proc~str_a_i2p proc~str_i8p str_I8P interface~str->proc~str_i8p proc~strf_i1p strf_I1P interface~str->proc~strf_i1p proc~str_a_i1p str_a_I1P interface~str->proc~str_a_i1p proc~strf_r4p strf_R4P interface~str->proc~strf_r4p proc~str_a_i4p str_a_I4P interface~str->proc~str_a_i4p proc~str_i1p str_I1P interface~str->proc~str_i1p proc~str_i2p str_I2P interface~str->proc~str_i2p proc~str_a_i8p str_a_I8P interface~str->proc~str_a_i8p proc~str_r4p str_R4P interface~str->proc~str_r4p proc~strf_i8p strf_I8P interface~str->proc~strf_i8p proc~str_a_r8p str_a_R8P interface~str->proc~str_a_r8p proc~str_i4p str_I4P interface~str->proc~str_i4p proc~str_bol str_bol interface~str->proc~str_bol proc~str_a_r4p str_a_R4P interface~str->proc~str_a_r4p proc~str_r8p str_R8P interface~str->proc~str_r8p proc~strf_r8p strf_R8P interface~str->proc~strf_r8p proc~str_a_i2p->proc~str_i2p proc~str_a_i1p->proc~str_i1p proc~str_a_i4p->proc~str_i4p proc~str_a_i8p->proc~str_i8p proc~compact_real_string compact_real_string proc~str_r4p->proc~compact_real_string proc~str_a_r8p->proc~str_r8p proc~str_a_r4p->proc~str_r4p proc~str_r8p->proc~compact_real_string
Help

Variables

Source Code

compact_real

Variables

Type AttributesNameInitial
logical :: test_passed(3)

List of passed tests.

Source Code

program compact_real
!-----------------------------------------------------------------------------------------------------------------------------------
!< PENF's testing program.
!-----------------------------------------------------------------------------------------------------------------------------------
use penf
use, intrinsic :: ISO_FORTRAN_ENV, only : stdout=>OUTPUT_UNIT
!-----------------------------------------------------------------------------------------------------------------------------------

!-----------------------------------------------------------------------------------------------------------------------------------
implicit none
logical :: test_passed(3) !< List of passed tests.
!-----------------------------------------------------------------------------------------------------------------------------------

!-----------------------------------------------------------------------------------------------------------------------------------
call penf_init

test_passed = .false.

test_passed(1) = trim(str(n=1._R8P, compact=.true.))=='+0.1E+1'
print "(A,L1)", 'Compact 1.0: '//trim(str(n=1._R8P, compact=.true.))//', is correct? ', test_passed(1)

test_passed(2) = trim(str(n=1._R4P/3._R4P, compact=.true.))=='+0.333333E+0'
print "(A,L1)", 'Compact 1.0/3.0: '//trim(str(n=1._R4P/3._R4P, compact=.true.))//', is correct? ', test_passed(2)

test_passed(3) = trim(str(n=1._R16P/4._R16P, compact=.true.))=='+0.25E+0'
print "(A,L1)", 'Compact 1.0/4.0: '//trim(str(n=1._R16P/4._R16P, compact=.true.))//', is correct? ', test_passed(3)

write(stdout, "(A,L1)") new_line('a')//'Are all tests passed? ', all(test_passed)
stop
!-----------------------------------------------------------------------------------------------------------------------------------
endprogram compact_real

All Programs