assignments Program

  1. assignments.f90
  2. assignments
program~~assignments~~UsesGraph program~assignments assignments iso_fortran_env iso_fortran_env iso_fortran_env->program~assignments module~penf_stringify~3 penf_stringify iso_fortran_env->module~penf_stringify~3 module~stringifor stringifor module~stringifor->program~assignments module~stringifor_string_t stringifor_string_t module~stringifor_string_t->module~stringifor module~penf~3 penf module~penf~3->module~stringifor module~penf~3->module~stringifor_string_t module~befor64 befor64 module~penf~3->module~befor64 module~befor64_pack_data_m~2 befor64_pack_data_m module~penf~3->module~befor64_pack_data_m~2 module~befor64->module~stringifor_string_t module~befor64_pack_data_m~2->module~befor64 module~penf_global_parameters_variables penf_global_parameters_variables module~penf_global_parameters_variables->module~penf~3 module~penf_b_size~4 penf_b_size module~penf_global_parameters_variables->module~penf_b_size~4 module~penf_global_parameters_variables->module~penf_stringify~3 module~penf_b_size~4->module~penf~3 module~penf_b_size~4->module~penf_stringify~3 module~penf_stringify~3->module~penf~3
Help


StringiFor assignments test.


Variables

Source Code

assignments

Variables

Type AttributesNameInitial
type(string) :: astring

A string.
integer(kind=I1P) :: ainteger_I1P

A integer (I1P).
integer(kind=I2P) :: ainteger_I2P

A integer (I2P).
integer(kind=I4P) :: ainteger_I4P

A integer (I4P).
integer(kind=I8P) :: ainteger_I8P

A integer (I8P).
real(kind=R4P) :: areal_R4P

A real (R4P).
real(kind=R8P) :: areal_R8P

A real (R8P).
real(kind=R16P) :: areal_R16P

A real (R16P).
logical :: test_passed(7)

List of passed tests.

Source Code

program assignments
!-----------------------------------------------------------------------------------------------------------------------------------
!< StringiFor `assignments` test.
!-----------------------------------------------------------------------------------------------------------------------------------
use, intrinsic :: iso_fortran_env, only : stdout => output_unit
use stringifor, only : string, I1P, I2P, I4P, I8P, R4P, R8P, R16P
!-----------------------------------------------------------------------------------------------------------------------------------

!-----------------------------------------------------------------------------------------------------------------------------------
implicit none
type(string) :: astring        !< A string.
integer(I1P) :: ainteger_I1P   !< A integer (I1P).
integer(I2P) :: ainteger_I2P   !< A integer (I2P).
integer(I4P) :: ainteger_I4P   !< A integer (I4P).
integer(I8P) :: ainteger_I8P   !< A integer (I8P).
real(R4P)    :: areal_R4P      !< A real (R4P).
real(R8P)    :: areal_R8P      !< A real (R8P).
real(R16P)   :: areal_R16P     !< A real (R16P).
logical      :: test_passed(7) !< List of passed tests.
!-----------------------------------------------------------------------------------------------------------------------------------

!-----------------------------------------------------------------------------------------------------------------------------------
test_passed = .false.

ainteger_I1P = 127_I1P
astring = ainteger_I1P
test_passed(1) = astring//''=='+127'
write(stdout, "(A,L1)") 'Assigned to: "'//astring//'" is correct? ', test_passed(1)

ainteger_I2P = 32767_I2P
astring = ainteger_I2P
test_passed(2) = astring//''=='+32767'
write(stdout, "(A,L1)") 'Assigned to: "'//astring//'" is correct? ', test_passed(2)

ainteger_I4P = 2147483647_I4P
astring = ainteger_I4P
test_passed(3) = astring//''=='+2147483647'
write(stdout, "(A,L1)") 'Assigned to: "'//astring//'" is correct? ', test_passed(3)

ainteger_I8P = -9223372036854775807_I8P
astring = ainteger_I8P
test_passed(4) = astring//''=='-9223372036854775807'
write(stdout, "(A,L1)") 'Assigned to: "'//astring//'" is correct? ', test_passed(4)

areal_R4P = 3.021e6_R4P
astring = areal_R4P
test_passed(5) = astring//''=='+0.302100E+07'
write(stdout, "(A,L1)") 'Assigned to: "'//astring//'" is correct? ', test_passed(5)

areal_R8P = 7.00907641e23_R8P
astring = areal_R8P
test_passed(6) = astring//''=='+0.700907641000000E+024'
write(stdout, "(A,L1)") 'Assigned to: "'//astring//'" is correct? ', test_passed(6)

areal_R16P = 1.1e200_R16P
astring = areal_R16P
test_passed(7) = astring//''=='+0.110000000000000000000000000000000E+0201'
write(stdout, "(A,L1)") 'Assigned to: "'//astring//'" is correct? ', test_passed(7)

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

All Programs