Subversion Repositories openrisc

! { dg-do run }

! { dg-warning "Loop variable" "Loop" { target *-*-* } 13 }

! { dg-warning "Start expression" "Start" { target *-*-* } 13 }

! { dg-warning "End expression" "End" { target *-*-* } 13 }

! { dg-warning "Step expression" "Step" { target *-*-* } 13 }

! 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

    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