timer.f90

program timer

      integer time_max, i
      i = 0

      print *, "This program will tell you when X seconds is up."
      print *, "Please input X(Real number psease) and push ENTER."
      read *, time_max

      !count down
      do i = time_max, 1, -1
        print *, i
        call system("sleep 1")
      end do

      !alarm
      do
        print *, "Finished!!"
      end do

end program timer