aboutsummaryrefslogtreecommitdiffstats
path: root/test/FrontendAda/non_lvalue.adb
blob: 157f3ddd287fb36c0a2b400272f68c4f70238a4e (plain)
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;