Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(string), | intent(in) | :: | self |
function p(self) result (string_out)
! ident_30="@(#) M_strings oop_p(3f) return CHARACTER string from TYPE(STRING)"
class(string),intent(in) :: self
character(len=len(self%str)) :: string_out
string_out=self%str
end function p