1! { dg-do run }
2! { dg-warning "Loop variable" "Loop" { target *-*-* } 13 }
3! { dg-warning "Start expression" "Start" { target *-*-* } 13 }
4! { dg-warning "End expression" "End" { target *-*-* } 13 }
5! { dg-warning "Step expression" "Step" { target *-*-* } 13 }
6! Test REAL type iterators in DO loops
7program real_do_1
8  real x, y
9  integer n
10
11  n = 0
12  y = 1.0
13  do x = 1.0, 2.05, 0.1
14    call check (x, y)
15    y = y + 0.1
16    n = n + 1
17  end do
18  if (n .ne. 11) call abort()
19contains
20subroutine check (a, b)
21  real, intent(in) :: a, b
22
23  if (abs (a - b) .gt. 0.00001) call abort()
24end subroutine
25end program
26