TYPE PERSON
|
END TYPE PERSON |
TYPE(PERSON) YOU,ME |
The Identification number of YOU would be accessed as YOU%ID as an ordinary integer |
One can define global operators so that YOU+ME could be defined |
One can use name of derived type as a constructor |
YOU = PERSON ('Pamela Fox', 12, 3) |