Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/address_null_init.ads @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
package Address_Null_Init is type Acc is access Integer; A : Acc := new Integer'(123); B : Acc; -- Variable must be set to null (and A overwritten by null) for B'Address use A'Address; end Address_Null_Init;