1 with Ada
.Numerics
.Complex_Types
; use Ada
.Numerics
.Complex_Types
;
3 package Loop_Optimization13
is
5 type Complex_Vector
is array (Integer range <>) of Complex
;
6 type Complex_Vector_Ptr
is access Complex_Vector
;
8 type Rec
(Kind
: Boolean := False) is record
10 when True => V
: Complex_Vector_Ptr
;
15 function F
(A
: Rec
) return Rec
;
17 end Loop_Optimization13
;