llvm-project/llvm/test/FrontendAda/Support/var_size.ads

8 lines
180 B
Ada
Raw Normal View History

2007-04-04 05:46:22 +08:00
package Var_Size is
type T (Length : Natural) is record
A : String (1 .. Length);
B : String (1 .. Length);
end record;
function A (X : T) return String;
end;