Integer, Pointer :: i(:,:)
Integer, Target :: j(2,2)
j = 1
i => j
Print *, i
Print *, j
End
Execution Results1 1 1 1
1 1 1 1
<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 |
|