Sign in
chromium
/
chromiumos
/
third_party
/
gcc
/
refs/heads/stabilize-6812.83.B
/
.
/
gcc
/
testsuite
/
gnat.dg
/
forward_anon.ads
blob: ff68ff400d31628620f41ba96c1ea1601e0c69da [
file
] [
log
] [
blame
]
package
Forward_Anon
is
type
Object
is
null
record
;
function
Get_Current
return
access
Object
;
Current_Object
:
constant access
Object
;
private
One_Object
:
aliased
Object
;
Current_Object
:
constant access
Object
:=
One_Object
'Access;
end;