<Example Program>
Program pointer_example
Integer,
Pointer
:: i(:,:)
Integer,
Target
:: j(2,2)
j = 1
i => j
Print *, i
Print *, j
End
Execution Results
1 1 1 1
1 1 1 1