Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
gcc
/
testsuite
/
gnat.dg
/
lto11.ads
blob: 386d5ac4620a23eb1b9a064e33802e705ea3e4cf [
file
] [
log
] [
blame
]
with
Ada
.
Streams
;
use
Ada
.
Streams
;
package
Lto11
is
type
Vector
is
array
(
Positive
range
<>)
of
Float
;
procedure
Write
(
S
:
not
null
access
Root_Stream_Type
'Class; V : Vector);
end Lto11;