| ! { 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 |