PROGRAM example1
  IMPLICIT NONE
  
  INTEGER :: i

  DO i = 0, 25
     PRINT *, i * 0.1d0
  ENDDO

END PROGRAM example1
