Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(string), | intent(inout) | :: | lhs | |||
character(kind=CK, len=*), | intent(in) | :: | rhs |
pure subroutine string_assign_character(lhs, rhs) !< Assignment operator from character input. !< !<```fortran !< type(string) :: astring !< logical :: test_passed(1) !< astring = 'hello' !< test_passed(1) = astring%chars()=='hello' !< print '(L1)', all(test_passed) !<``` !=> T <<< class(string), intent(inout) :: lhs !< Left hand side. character(kind=CK, len=*), intent(in) :: rhs !< Right hand side. lhs%raw = rhs endsubroutine string_assign_character