repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
2016-11-21 Thomas Preud'homme <thomas.preudhomme@arm.com>
[official-gcc.git]
/
gcc
/
testsuite
/
gnat.dg
/
address_null_init.ads
blob
58c1c314bcd88af2b695de3c01daf1ec61f91a24
1
package
Address_Null_Init
is
2
3
type
Acc
is access
Integer
;
4
A
:
Acc
:=
new
Integer
'(123);
5
B : Acc; -- Variable must be set to null (and A overwritten by null)
6
for B'Address use A'Address;
7
8
end Address_Null_Init;