ARM+ADS 源代码

-- { dg-do compile } package access3 is type TF is access function return access procedure (P1 : Integer); type TAF is…

-- { dg-do compile } package double_record_extension2 is type Base_Message_Type (Num_Bytes : Positive) is tagged record …

-- { dg-do compile } package box1 is type Root is tagged null record; type Der1 is new Root with record B : Boolean; …

-- { dg-do compile } package Pack2 is type Rec is record Ptr: access Character; Int :Integer; end record; …

-- { dg-do compile } package Size_Clause2 is -- The alignment of the record is capped to the greatest power of 2 -- factor o…

-- { dg-do compile } -- { dg-options "-gnatws" } with System; with System.Storage_Elements; with Unchecked_Conversion; package U…

-- { dg-do compile } with Ada.Finalization; use Ada; package ai_116 is pragma Preelaborate; type Buffer_Type is limited in…

-- { dg-do compile } with Pack3_Pkg; package Pack3 is subtype N_TYPE is INTEGER range 0..5; type LIST_ARRAY is array (N_TY…

-- { dg-do compile } package double_record_extension1 is type T1(n: natural) is tagged record s1: string (1..n); en…

-- { dg-do compile } package cpp1 is type Root_Interface is interface; type Typ is new Root_Interface with record …