| ! { 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) STOP 1 |
| contains |
| subroutine check (a, b) |
| real, intent(in) :: a, b |
| |
| if (abs (a - b) .gt. 0.00001) STOP 2 |
| end subroutine |
| end program |
