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
* gcc-interface/trans.c (node_has_volatile_full_access) <N_Identifier>:
[official-gcc.git]
/
gcc
/
testsuite
/
gnat.dg
/
aggr12.adb
blob
fabba64f267061be6d8b0568bcdce2f51a258777
1
-- { dg-do compile }
2
-- { dg-options "-fdump-tree-original" }
3
4
package body
Aggr12
is
5
6
procedure
Print
(
Data
:
String
)
is
7
begin
8
null
;
9
end
;
10
11
procedure
Test
is
12
begin
13
Print
(
Hair_Color_Type
'Image
(
A
.
I1
));
14
Print
(
Hair_Color_Type
'Image
(
A
.
I2
));
15
end
;
16
17
end
Aggr12
;
18
19
-- { dg-final { scan-tree-dump-not "{.i1=0, .i2=2}" "original" } }