PROGRAM simple_loop
! t01.f90 -- waste CPU by simple loop.

IMPLICIT NONE
INTEGER :: i=0

  DO
    IF (i >= 1000000) EXIT
    i = i + 1
  END DO

END PROGRAM simple_loop