Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/real_do_1.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { 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