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
* snames.ads-tmpl (Name_Ivdep): New pragma-related name.
[official-gcc.git]
/
gcc
/
testsuite
/
gnat.dg
/
volatile7.adb
blob
d0eb48ffee6c21d6f6dd6a60a4d5313b5187ee1d
1
-- { dg-do compile }
2
-- { dg-options "-O2 -fdump-tree-optimized" }
3
4
function
Volatile7
return
Integer
is
5
6
type
Vol
is new
Integer
;
7
pragma
Volatile
(
Vol
);
8
9
type
R
is record
10
X
:
Vol
:=
0
;
11
end record
;
12
13
V
:
R
;
14
15
begin
16
for
J
in
1
..
10
loop
17
V
.
X
:=
V
.
X
+
1
;
18
end loop
;
19
20
return
Integer
(
V
.
X
);
21
end
;
22
23
-- { dg-final { scan-tree-dump "goto" "optimized" } }
24
-- { dg-final { cleanup-tree-dump "optimized" } }