Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/volatile_aggregate.adb @ 138:fc828634a951
merge
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Thu, 08 Nov 2018 14:17:14 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
-- { dg-do compile } with System; procedure Volatile_Aggregate is function GetArrayUpperBound return Integer is begin return 2; end GetArrayUpperBound; some_value : Integer := GetArrayUpperBound; type Gp_Element_Type is record Element : Integer; end record; type some_type is array (1 .. some_value) of Gp_Element_Type; type Aligned_Some_Type is record Value : aliased some_type; end record; for Aligned_Some_Type'Alignment use 8; an_aligned_type : aligned_Some_Type; my_address : system.address; pragma Volatile (an_aligned_type); begin my_address := an_aligned_type.value(1)'address; end;