subroutinemake_stringpureprivate
pure subroutine make_string(text, v)
Make a string value.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| text | character(len=*) | in | the string | |
| v | type(value_t) | out | the value |
Source
Show the code
pure subroutine make_string(text, v)
character(len=*), intent(in) :: text !! the string
type(value_t), intent(out) :: v !! the value
v%kind = V_STR
v%text = text
end subroutine make_string