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
/
pack4.adb
1
-- { dg-do run }
2
3
procedure Pack4 is
4
5
type Time_T is record
6
Hour : Integer;
7
end record;
8
9
type Date_And_Time_T is record
10
Date : Integer;
11
Time : Time_T;
12
end record;
13
14
pragma Pack(Date_And_Time_T);
15
16
procedure
17
Assign_Hour_Of (T : out Time_T)
18
is
19
begin
20
T.Hour := 44;
21
end;
22
23
procedure
24
Clobber_Hour_Of (DT: out Date_And_Time_T)
25
is
26
begin
27
Assign_Hour_Of (Dt.Time);
28
end;
29
30
DT : Date_And_Time_T;
31
32
begin
33
DT.Time.Hour := 22;
34
Clobber_Hour_Of (DT);
35
if DT.Time.Hour /= 44 then
36
raise Program_Error;
37
end if;
38
end;