mirror of
https://github.com/RPCS3/llvm-mirror.git
synced 2024-10-21 03:53:04 +02:00
Ada testcase for structs with multiple variable sized fields.
llvm-svn: 35210
This commit is contained in:
parent
0ea571dda0
commit
cdf52c92a9
7
test/AdaFrontend/var_size.adb
Normal file
7
test/AdaFrontend/var_size.adb
Normal file
@ -0,0 +1,7 @@
|
|||||||
|
-- RUN: %llvmgcc -c %s -o /dev/null
|
||||||
|
package body Var_Size is
|
||||||
|
function A (X : T) return String is
|
||||||
|
begin
|
||||||
|
return X.A;
|
||||||
|
end;
|
||||||
|
end;
|
7
test/AdaFrontend/var_size.ads
Normal file
7
test/AdaFrontend/var_size.ads
Normal file
@ -0,0 +1,7 @@
|
|||||||
|
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;
|
Loading…
Reference in New Issue
Block a user