1
0
mirror of https://github.com/RPCS3/llvm-mirror.git synced 2024-11-01 16:33:37 +01:00
llvm-mirror/test/FrontendAda/Support/var_size.ads

8 lines
180 B
Ada
Raw Normal View History

2007-04-03 23:46:22 +02: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;