Sign in
gnu
/
gcc
/
1f16a020acbea0af26209478990b83b1a1ba3a2b
/
.
/
gcc
/
testsuite
/
gnat.dg
/
opt25_pkg1.ads
blob: 7a96f27494aa7424237efb6e616cad558d8a1a90 [
file
] [
log
] [
blame
]
generic
type T
is
private
;
Init_Value
:
T
;
package
Opt25_Pkg1
is
Var
:
T
:=
Init_Value
;
procedure
Swap
(
A
,
B
:
in
out
T
);
end
Opt25_Pkg1
;