blob: 71e7e102d05b61ec92e8deba9d0e5aaa33f025e5 [file] [log] [blame]
Duncan Sands53910d92010-11-25 21:21:59 +00001-- RUN: %llvmgcc -S %s -I%p/Support
Chris Lattnere10988d2007-04-03 21:46:22 +00002package body Non_LValue is
3 function A (Y : U) return String is
4 begin
5 return Y.X.B;
6 end;
7end;