Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gnat.dg
/
loop_optimization7_pkg.ads
blob: 0eaefa1b0f32c8904379cb9ae5bd1bb8fee239da [
file
] [
log
] [
blame
]
package
Loop_Optimization7_Pkg
is
pragma
Pure
;
type
Rec
is
record
F
:
Float
;
end
record
;
function
Conv
(
Trig
:
Rec
)
return
Rec
;
end
Loop_Optimization7_Pkg
;