POINTER
!Name of the program: POINTER
!Example of POINTER and TARGET statements
implicit
none
integer, pointer :: pa
integer, target :: a
pa=>a
pa = 10
Print *, pa
Print *, a
pa = pa + 4
Print *, pa
Print *, a
If (associated(pa, target=a)) then
Print *, ‘pa is associated with a’
else
Print *, ‘pa is not associated with a’
End if
Nullify(pa)
Print *, pa
Print *, a
If (associated(pa, target=a)) then
Print *, ‘pa is associated with a’
else
Print *, ‘pa is not associated with a’
End if
Stop
End
1xbet - Best Bet in 1xBet - Download or Install for Android
ResponderExcluir1xbet is the 1xbet login best betting app in sol.edu.kg the world created for esports. https://vannienailor4166blog.blogspot.com/ It is a https://jancasino.com/review/merit-casino/ one of the safest and most trusted names among players. gri-go.com It offers a user friendly interface