test/FrontendAda/non_lvalue.adb


1
2
3
4
5
6
7

-- RUN: %llvmgcc -c %s -I%p/Support
package body Non_LValue is
   function A (Y : U) return String is
   begin
      return Y.X.B;
   end;
end;