X=20.
      Z=1
   10 X=COS(X)
      WRITE(*,*) Z,X
      Z=Z+1
      IF(Z.EQ.100) GOTO 20
      GOTO 10
   20 STOP
      END