1 2 3 4 5 6 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;