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/decl.c (gnat_to_gnu_field): Do not enforce strict
[official-gcc.git]
/
gcc
/
testsuite
/
gnat.dg
/
specs
/
volatile1.ads
blob
6f9421af45f18233a254a775b3c5e013f754c3f3
1
-- { dg-do compile }
2
3
package
Volatile1
is
4
5
C
:
Character
;
6
for
C
'Size
use
32
;
7
pragma
Volatile
(
C
);
8
9
type
R1
is record
10
C
:
Character
;
11
pragma
Volatile
(
C
);
12
end record
;
13
for
R1
use record
14
C
at
0
range
0
..
31
;
15
end record
;
16
17
type
R2
is record
18
C
:
Character
;
19
pragma
Volatile
(
C
);
20
end record
;
21
for
R2
use record
22
C
at
0
range
0
..
10
;
23
end record
;
24
25
end
Volatile1
;