Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gnat.dg
/
alignment15.adb
blob: e58243d29084abc0dffbee11e6b7ecc63d47ab7b [
file
] [
log
] [
blame
]
--
{
dg
-
compile
}
procedure
Alignment15
is
type T0
is
record
X
:
Integer
;
end
record
;
for
T0
'Alignment use 0;
type T00 is record
X : Integer;
end record with Alignment => 0;
Dummy0 : T0;
Dummy00 : T00;
begin
null;
end;