Re: Simple Program, Lots of Issues (F90)

Erg, never mind that the algorithm I wrote doesn't even work. Here is
the (hopefully) fixed version.

      program primes

      integer :: i, j, k, l, m, n, x
      real    :: t
      logical :: notprime, even

! Program finds primes up to
! upper limit 'x' as defined by user

      write ( * , * ) 'Please input upper limit, x:'
      read ( * , * ) x

      do i = 2, x, 1
! Form of FOR loop is
! do variable = start val, end val, step size
         if ( i == 2 ) then
            write ( * , * ) i
         end if
         even = .FALSE.
         notprime = .FALSE.
         j = i / 2
         t = i / 2
         if ( j == t ) then
            even = 1
         else
            l = SQRT( i )
            do m = 3, l, 2
               n = i / m
               t = i / m
! n is an int, while t is a float
! so if n == t then m is a divisor of i
! meaning i is not prime
               if ( n == t ) then
                  notprime = 1
               end if
            end do
         end if
         if ( notprime == .FALSE. && even == .FALSE. ) then
            write ( * , * ) i
         end if
      end do

      stop
      end