llvm-project/llvm/test/FrontendAda/non_lvalue.adb

-- 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;