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