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  

Comentários

  1. 1xbet - Best Bet in 1xBet - Download or Install for Android
    1xbet 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

    ResponderExcluir

Postar um comentário

Postagens mais visitadas deste blog

RECURSIVE

HYDROGEN-RADIAL

RUNGE-KUTTA