Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
gcc
/
testsuite
/
gnat.dg
/
lto25.adb
blob: 242c8d68650e7b6b6faf0d446fa91d91add7bb3b [
file
] [
log
] [
blame
]
--
{
dg
-
do
run
}
--
{
dg
-
options
"-O2 -flto"
{
target lto
}
}
with
Opt96_Pkg
;
use
Opt96_Pkg
;
procedure
Lto25
is
R
:
Rec
;
D
:
Data
;
begin
D
.
Foo
.
Bar
:=
(
0.02
,
0.01
);
if
R
.
F
(
D
)
/=
30
then
raise
Program_Error
;
end
if
;
end
;