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