Copy Function

  1. FEQParse_TokenStack.f90
  2. FEQParse_TokenStack
  3. Copy

public function Copy(this) result(that)

Arguments

TypeIntentOptionalAttributesName
class(Token) :: this

Return Value type(Token)


Contents

Source Code

Copy

Source Code

  function Copy(this) result(that)
    class(Token) :: this
    type(Token)  :: that

    that%tokenString = this%tokenString
    that%tokenType = this%tokenType
    that%tokenIndex = this%tokenIndex
  endfunction Copy