gcc/testsuite/gnat.dg/addr10.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

--  { dg-do compile }

with System;

procedure Addr10 is
   type Limited_Type is limited record
      Element : Integer;
   end record;

   function Initial_State return Limited_Type is ((Element => 0));

   type Double_Limited_Type is
      record
         A : Limited_Type;
      end record;

   Double_Limited : Double_Limited_Type :=
      (A => Initial_State)
   with
      Volatile,
      Address => System'To_Address (16#1234_5678#);
begin
   null;
end Addr10;