Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
gcc
/
testsuite
/
gnat.dg
/
generic_inst13_pkg-ops_g.ads
blob: 08329408ed0a2ffc3507dd3be60288569c33185f [
file
] [
log
] [
blame
]
generic
type
Data_T
is
private
;
package
Generic_Inst13_Pkg
.
Ops_G
is
type
List_T
is
array
(
Positive
range
<>)
of
Data_T
;
function
"or"
(
Left
,
Right
:
Data_T
)
return
List_T
is
((
Left
,
Right
));
end
Generic_Inst13_Pkg
.
Ops_G
;