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
* tree-loop-distribution.c (struct partition): New field recording
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
pr69155.f90
blob
a8ee9d70d9a0264327dbbe8828092671a66c3e88
1
! PR tree-optimization/69155
2
! { dg-do compile }
3
4
function
pr69155
(
a
,
b
)
5
complex
(
kind
=
8
),
value
::
a
,
b
6
if
(
dimag
(
a
) .
lt
.
10
)
then
7
1
continue
8
if
(
dble
(
a
) .
lt
.
10
)
then
9
b
=
b
-
1
/
a
10
a
=
a
+
1
11
goto
1
12
end if
13
end if
14
pr69155
=
a
+
b
15
end