A container for holding the defualt character type.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(character_container), | intent(in) | :: | this | |||
class(*), | intent(inout) | :: | lhs |
Transfers the container's contents to the variable on the left hand side of the equals sign if it is of the correct type.
type, extends(container) :: character_container
!! Author: Chris MacMackin
!! Date: December 2015
!!
!! A container for holding the defualt character type.
contains
private
procedure :: typeguard => character_guard
end type character_container