repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
2006-10-28 Andrew Pinski <andrew_pinski@playstation.sony.com>
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
real_do_1.f90
blob
89a9d1b9b5999a8015b6e5f0e9ef55346b526536
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