Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gnat.dg
/
graphic.ads
blob: a1153de649db3f44b480d1f96c3a389a9cc79e0d [
file
] [
log
] [
blame
]
with
Ada
.
Streams
;
with
Ada
.
Tags
;
package
Graphic
is
use
Ada
;
--
type
Object
is
abstract
tagged
null
record
;
function
XML_Input
(
S
:
access
Streams
.
Root_Stream_Type
'Class)
return Object'
Class
;
end
Graphic
;