string_assign_real_R4P Subroutine

private pure subroutine string_assign_real_R4P(lhs, rhs)

Assignment operator from real input.

 use penf
 type(string) :: astring
 logical      :: test_passed(1)
 astring = 3.021e6_R4P
 test_passed(1) = astring%to_number(kind=1._R4P)==3.021e6_R4P
 print '(L1)', all(test_passed)

Type Bound

string

Arguments

Type IntentOptional Attributes Name
class(string), intent(inout) :: lhs

Left hand side.
real(kind=R4P), intent(in) :: rhs

Right hand side.

Calls

proc~~string_assign_real_r4p~~CallsGraph proc~string_assign_real_r4p stringifor_string_t::string%string_assign_real_R4P str str proc~string_assign_real_r4p->str

Contents

Source Code

string_assign_real_R4P

Source Code

   pure subroutine string_assign_real_R4P(lhs, rhs)
   !< Assignment operator from real input.
   !<
   !<```fortran
   !< use penf
   !< type(string) :: astring
   !< logical      :: test_passed(1)
   !< astring = 3.021e6_R4P
   !< test_passed(1) = astring%to_number(kind=1._R4P)==3.021e6_R4P
   !< print '(L1)', all(test_passed)
   !<```
   !=> T <<<
   class(string), intent(inout) :: lhs !< Left hand side.
   real(R4P),     intent(in)    :: rhs !< Right hand side.

   lhs%raw = trim(str(rhs))
   endsubroutine string_assign_real_R4P