projects
/
platform
/
upstream
/
gcc48.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
remove unused files
[platform/upstream/gcc48.git]
/
gcc
/
testsuite
/
gnat.dg
/
volatile10_pkg.ads
1
package Volatile10_Pkg is
2
3
type Num is mod 2**9;
4
5
type Rec is record
6
B1 : Boolean;
7
N1 : Num;
8
B2 : Boolean;
9
N2 : Num;
10
B3 : Boolean;
11
B4 : Boolean;
12
B5 : Boolean;
13
B6 : Boolean;
14
B7 : Boolean;
15
B8 : Boolean;
16
B9 : Boolean;
17
B10 : Boolean;
18
B11 : Boolean;
19
B12 : Boolean;
20
B13 : Boolean;
21
B14 : Boolean;
22
end record;
23
pragma Pack (Rec);
24
for Rec'Size use 32;
25
pragma Volatile(Rec);
26
27
function F return Rec;
28
29
end Volatile10_Pkg;