Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- type TestType
- integer, target :: t
- end type
- type TestType2
- integer, pointer :: p
- end type
- type(TestType) :: tt
- type(TestType2) :: tt2
- tt%t = 1
- tt%p => tt%t
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement