ARM+ADS 源代码

-- { dg-do compile } package Size_Clause3 is -- The record inherits the alignment of Integer, which is 4, so -- the real siz…

-- { dg-do compile } package Size_Clause1 is -- The record inherits the alignment of Integer, which is 4, so -- the real siz…

package prefix2 is type Coordonnee is range -100 .. 100; type Instance is abstract tagged private; subtype Cl…

package debug1 is type Vector is array (Natural range ) of Natural; type Vector_Access is access Vector; type Da…

package equal1 is type Basic_Connection_Status_T is (Connected, Temporary_Disconnected, Disconnected); for Basic_Connecti…

with SYSTEM; WITH array2; use array2; package array1 is procedure Foo (R : RIC_TYPE); procedure Start_Timer (Q : SYSTEM.AD…

package Opt1 is type Dimention_Length is array (1 .. 16) of Natural; type Dimension_Indexes is array (Positive range ) of …

package return1 is type Base is abstract tagged null record; type Child is new Base with record Anon_Access : acces…

package anon1 is function F return access Integer; end anon1;

package Oalign2 is Klunk2 : Integer := 12; for Klunk2'Alignment use Standard'Maximum_Alignment; end;