program main

      include 'omp_lib.h'

      integer i, n
      double precision x(1000), x_max

      n = 1000

      do i = 1, n
        x(i) = rand ( )
      end do

      x_max = -1000.0

!$omp parallel do
      do i = 1, n
        if ( x_max < x(i) ) then
          x_max = x(i)
        end if
      end do
!$omp end parallel

      stop
      end