* gnat.dg/unchecked_convert4.adb: Add missing rep clause.
From-SVN: r152938
This commit is contained in:
parent
57e4ba8488
commit
5efc527bcc
@ -1,3 +1,7 @@
|
|||||||
|
2009-10-17 Eric Botcazou <ebotcazou@adacore.com>
|
||||||
|
|
||||||
|
* gnat.dg/unchecked_convert4.adb: Add missing rep clause.
|
||||||
|
|
||||||
2009-10-17 Eric Botcazou <ebotcazou@adacore.com>
|
2009-10-17 Eric Botcazou <ebotcazou@adacore.com>
|
||||||
|
|
||||||
* gnat.dg/aggr11.adb: New test.
|
* gnat.dg/aggr11.adb: New test.
|
||||||
|
@ -9,6 +9,7 @@ procedure Unchecked_Convert4 is
|
|||||||
type Rec is record
|
type Rec is record
|
||||||
I : Uint32;
|
I : Uint32;
|
||||||
end record;
|
end record;
|
||||||
|
for Rec'Size use 32;
|
||||||
pragma Atomic (Rec);
|
pragma Atomic (Rec);
|
||||||
|
|
||||||
function Conv is new Unchecked_Conversion (Uint32, Rec);
|
function Conv is new Unchecked_Conversion (Uint32, Rec);
|
||||||
|
Loading…
Reference in New Issue
Block a user