OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
2006-09-19 Jack Howarth <howarth@bromo.med.uc.edu>
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
real_do_1.f90
1
! { dg-do run }
2
! Test REAL type iterators in DO loops
3
program real_do_1
4
real x, y
5
integer n
6
7
n = 0
8
y = 1.0
9
do x = 1.0, 2.05, 0.1 ! { dg-warning "REAL DO loop" "" }
10
call check (x, y)
11
y = y + 0.1
12
n = n + 1
13
end do
14
if (n .ne. 11) call abort()
15
contains
16
subroutine check (a, b)
17
real, intent(in) :: a, b
18
19
if (abs (a - b) .gt. 0.00001) call abort()
20
end subroutine
21
end program