mirror of
https://github.com/RPCS3/llvm-mirror.git
synced 2024-10-20 03:23:01 +02:00
New directory for Ada testcases. Test handling of NON_LVALUE_EXPR.
llvm-svn: 34925
This commit is contained in:
parent
b0de2b2a9c
commit
964b80ff60
7
test/AdaFrontend/non_lvalue.adb
Normal file
7
test/AdaFrontend/non_lvalue.adb
Normal file
@ -0,0 +1,7 @@
|
||||
-- RUN: %llvmgcc -c %s -o /dev/null
|
||||
package body Non_LValue is
|
||||
function A (Y : U) return String is
|
||||
begin
|
||||
return Y.X.B;
|
||||
end;
|
||||
end;
|
11
test/AdaFrontend/non_lvalue.ads
Normal file
11
test/AdaFrontend/non_lvalue.ads
Normal file
@ -0,0 +1,11 @@
|
||||
package Non_LValue is
|
||||
type T (Length : Natural) is record
|
||||
A : String (1 .. Length);
|
||||
B : String (1 .. Length);
|
||||
end record;
|
||||
type T_Ptr is access all T;
|
||||
type U is record
|
||||
X : T_Ptr;
|
||||
end record;
|
||||
function A (Y : U) return String;
|
||||
end;
|
Loading…
Reference in New Issue
Block a user