mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
34 lines
605 B
Ada
34 lines
605 B
Ada
-- { dg-do compile }
|
|
|
|
package body Discr27 is
|
|
|
|
subtype Index is Positive range 1..4096;
|
|
|
|
function F return String is
|
|
S : String(1..1) := (others =>'w');
|
|
begin
|
|
return S;
|
|
end;
|
|
|
|
type Enum is (One, Two);
|
|
|
|
type Rec (D : Enum := One; Len : Index := 1) is record
|
|
case D is
|
|
when One => I : Integer;
|
|
when Two => A : String(1..Len);
|
|
end case;
|
|
end record;
|
|
|
|
procedure Nothing is
|
|
M : constant String := F;
|
|
C : constant Rec := (Two, M'Length, M);
|
|
begin
|
|
null;
|
|
end;
|
|
|
|
procedure Proc is begin
|
|
null;
|
|
end;
|
|
|
|
end Discr27;
|