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