Subversion Repositories openrisc

! { dg-do run }

! Test REAL type iterators in DO loops

program real_do_1

  real x, y

  integer n

  n = 0

  y = 1.0

  do x = 1.0, 2.05, 0.1 ! { dg-warning "REAL DO loop" "" }

    call check (x, y)

    y = y + 0.1

    n = n + 1

  end do

  if (n .ne. 11) call abort()

contains

subroutine check (a, b)

  real, intent(in) :: a, b

  if (abs (a - b) .gt. 0.00001) call abort()

end subroutine

end program