Sign in
gnu
/
gcc
/
a8404c07e7fca388c02c39077865f7d5fa928430
/
.
/
gcc
/
testsuite
/
gnat.dg
/
opt29.adb
blob: 64f2baef3d08e6e72a95b25a6a4c7297b3eb7937 [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
--
{
dg
-
options
"-O"
}
package
body
Opt29
is
procedure
Proc
(
T
:
Rec
)
is
begin
if
Derived2
(
T
.
F2
.
all
).
Id
=
T
.
F1
.
Id
then
raise
Program_Error
;
end
if
;
end
;
end
Opt29
;