5 lines
90 B
FortranFixed
5 lines
90 B
FortranFixed
|
integer, target :: i
|
||
|
|
integer, pointer :: pi
|
||
|
|
!... ...
|
||
|
|
if ( associated(pi, target=i) ) !...
|