Sign in
gnu
/
gcc
/
a8404c07e7fca388c02c39077865f7d5fa928430
/
.
/
gcc
/
testsuite
/
gnat.dg
/
type_conv2.ads
blob: b9ddeb2c57ff73407eba197798f74a6ee9898d2f [
file
] [
log
] [
blame
]
package
Type_Conv2
is
type
Root
is
abstract
tagged limited
null
record
;
type
Der_I
is
new
Root
with
record
X
:
Integer
;
end
record
;
function
Wrap
(
X
:
Integer
)
return
Root
'Class;
procedure Proc_Static;
end Type_Conv2;