Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
gcc
/
testsuite
/
gnat.dg
/
max_align.adb
blob: 702bbaca4492e8d59560d5fcf38d95dfc07ee6c7 [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
procedure
Max_Align
is
type
Block
is
record
X
:
Integer
;
end
record
;
for
Block
'Alignment use Standard'
Maximum_Alignment
;
type
Block_Access
is
access
Block
;
Ptr
:
Block_Access
:=
new
Block
;
begin
null
;
end
;