Assignment operator from integer input.
use penf
type(string) :: astring
logical :: test_passed(1)
astring = 127_I2P
test_passed(1) = astring%to_number(kind=1_I2P)==127_I2P
print '(L1)', all(test_passed)
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(string), | intent(inout) | :: | lhs |
Left hand side. |
||
integer(kind=I2P), | intent(in) | :: | rhs |
Right hand side. |
pure subroutine string_assign_integer_I2P(lhs, rhs)
!< Assignment operator from integer input.
!<
!<```fortran
!< use penf
!< type(string) :: astring
!< logical :: test_passed(1)
!< astring = 127_I2P
!< test_passed(1) = astring%to_number(kind=1_I2P)==127_I2P
!< print '(L1)', all(test_passed)
!<```
!=> T <<<
class(string), intent(inout) :: lhs !< Left hand side.
integer(I2P), intent(in) :: rhs !< Right hand side.
lhs%raw = trim(str(rhs))
endsubroutine string_assign_integer_I2P