test_all Program

program~~test_all~~UsesGraph program~test_all test_all iso_fortran_env iso_fortran_env iso_fortran_env->program~test_all module~penf_stringify penf_stringify iso_fortran_env->module~penf_stringify module~penf penf module~penf->program~test_all 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.

Usage

 ./test_all

Calls

program~~test_all~~CallsGraph program~test_all test_all interface~digit digit program~test_all->interface~digit interface~str str program~test_all->interface~str interface~bcton bcton program~test_all->interface~bcton interface~cton cton program~test_all->interface~cton interface~bstr bstr program~test_all->interface~bstr proc~penf_print penf_print program~test_all->proc~penf_print interface~strz strz program~test_all->interface~strz proc~penf_init penf_init program~test_all->proc~penf_init proc~digit_i8 digit_I8 interface~digit->proc~digit_i8 proc~digit_i2 digit_I2 interface~digit->proc~digit_i2 proc~digit_i1 digit_I1 interface~digit->proc~digit_i1 proc~digit_i4 digit_I4 interface~digit->proc~digit_i4 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~bctoi_i2p bctoi_I2P interface~bcton->proc~bctoi_i2p proc~bctoi_i8p bctoi_I8P interface~bcton->proc~bctoi_i8p proc~bctor_r8p bctor_R8P interface~bcton->proc~bctor_r8p proc~bctoi_i4p bctoi_I4P interface~bcton->proc~bctoi_i4p proc~bctor_r4p bctor_R4P interface~bcton->proc~bctor_r4p proc~bctoi_i1p bctoi_I1P interface~bcton->proc~bctoi_i1p proc~ctor_r4p ctor_R4P interface~cton->proc~ctor_r4p proc~ctoi_i4p ctoi_I4P interface~cton->proc~ctoi_i4p proc~ctoi_i2p ctoi_I2P interface~cton->proc~ctoi_i2p proc~ctoi_i1p ctoi_I1P interface~cton->proc~ctoi_i1p proc~ctor_r8p ctor_R8P interface~cton->proc~ctor_r8p proc~ctoi_i8p ctoi_I8P interface~cton->proc~ctoi_i8p proc~bstr_i1p bstr_I1P interface~bstr->proc~bstr_i1p proc~bstr_i8p bstr_I8P interface~bstr->proc~bstr_i8p proc~bstr_r8p bstr_R8P interface~bstr->proc~bstr_r8p proc~bstr_i2p bstr_I2P interface~bstr->proc~bstr_i2p proc~bstr_r4p bstr_R4P interface~bstr->proc~bstr_r4p proc~bstr_i4p bstr_I4P interface~bstr->proc~bstr_i4p proc~strz_i2p strz_I2P interface~strz->proc~strz_i2p proc~strz_i1p strz_I1P interface~strz->proc~strz_i1p proc~strz_i8p strz_I8P interface~strz->proc~strz_i8p proc~strz_i4p strz_I4P interface~strz->proc~strz_i4p proc~check_endian check_endian proc~penf_init->proc~check_endian 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 proc~bctoi_i2p->interface~str proc~bctoi_i8p->interface~str proc~bctor_r8p->interface~str proc~bctoi_i4p->interface~str proc~bctor_r4p->interface~str proc~bctoi_i1p->interface~str
Help

Source Code


Source Code

program test_all
!-----------------------------------------------------------------------------------------------------------------------------------
!< PENF's testing program.
!<
!<### Usage
!<```bash
!< ./test_all
!<```
!-----------------------------------------------------------------------------------------------------------------------------------
use penf
use, intrinsic :: ISO_FORTRAN_ENV, only : stdout=>OUTPUT_UNIT
!-----------------------------------------------------------------------------------------------------------------------------------

!-----------------------------------------------------------------------------------------------------------------------------------
implicit none
!-----------------------------------------------------------------------------------------------------------------------------------

!-----------------------------------------------------------------------------------------------------------------------------------
call penf_init
call penf_print(unit=stdout)
print "(A)", ''
print "(A)", 'Testing IR_Precision tools'
print "(A)", 'Casting real-to-string: '//str(n=1._R8P)
print "(A)", 'Casting integer-to-string: '//str(n=11_I8P)
print "(A,"//FR8P//")", 'Casting string-to-real: ',cton(str='2.2d0', knd=1._R8P)
print "(A,"//FI4P//")", 'Casting integer-to-string: ',cton(str='43', knd=1_I4P)
print "(A)", 'Casting integer-to-string with zero padding: '//trim(strz(nz_pad=3, n=34_I8P))
#ifndef __GFORTRAN__
print "(A)", 'Casting real-to-bit_string: '//bstr(n=1._R4P)
#endif
print "(A)", 'Casting integer-to-bit_string: '//bstr(n=1_I4P)
#ifndef __GFORTRAN__
print "(A,"//FR4P//")", 'Casting bit_string-to-real: ', bcton(bstr='00111111100000000000000000000000', knd=1._R4P)
#endif
print "(A,"//FI4P//")", 'Casting bit_string-to-integer: ',bcton(bstr='00000000000000000000000000000001', knd=1_I4P)
print "(A)", 'Number of digit of 1023: '//str(n=digit(1023_I4P))
stop
!-----------------------------------------------------------------------------------------------------------------------------------
endprogram test_all