Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/addr12_a.adb @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
with Addr12_B; with Addr12_C; with System; package body Addr12_A is First_Address : constant System.Address := Addr12_C.First'Address; Second_Address : constant System.Address := Addr12_C.Second'Address; First_Channel : Addr12_B.Shared_Context_Type := Addr12_B.Initial_State with Volatile, Async_Readers, Address => First_Address; Second_Channel : Addr12_B.Shared_Context_Type := Addr12_B.Initial_State with Volatile, Async_Readers; for Second_Channel'Address use Second_Address; procedure Do_Stuff is null; end Addr12_A;