Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gnat.dg
/
alignment1.adb
blob: 169e11c41492d859ba20b72a51a8a90b472f27fd [
file
] [
log
] [
blame
]
--
{
dg
-
do
run
}
--
{
dg
-
options
"-gnatws"
}
procedure alignment1
is
type
My_Integer
is
record
Element
:
Integer
;
end
record
;
F
:
My_Integer
;
begin
if
F
'Alignment /= F.Element'
Alignment
then
raise
Program_Error
;
end
if
;
end
;