1 -- RUN: %llvmgcc -S %s -I%p/Support 2 package body Non_LValue is 3 function A (Y : U) return String is 4 begin 5 return Y.X.B; 6 end; 7 end; 8
