Free dynamic memory.
type(string) :: astring
astring = 'this is string example....wow!!!'
call astring%free
print '(L1)', astring%is_allocated().eqv..false.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(string), | intent(inout) | :: | self |
The string. |
elemental subroutine free(self)
!< Free dynamic memory.
!<
!<```fortran
!< type(string) :: astring
!< astring = 'this is string example....wow!!!'
!< call astring%free
!< print '(L1)', astring%is_allocated().eqv..false.
!<```
!=> T <<<
class(string), intent(inout) :: self !< The string.
if (allocated(self%raw)) deallocate(self%raw)
endsubroutine free