C
C    これもありがちな間違いプログラムです
C    A=0.1!　と表示されませんね！　何故なのかよく考えてみて下さい
C
C
      A=0.0
C
      DO 100 I=1,1000
C
      A=A+0.001
C
      IF(A.EQ.0.1) THEN
       WRITE(*,*)' A=0.1 !'
       STOP
      END IF 
C
  100 CONTINUE
C
      WRITE(*,600) A
  600 FORMAT(' A=',F8.2)
C      WRITE(*,600) A
C  600 FORMAT(' A=',F8.5)
C
C
      STOP
      END