aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/limited1_outer.adb
blob: 607cc938991afd24b2e3ecd8429afe59f1afc04e (plain)
1
2
3
4
5
6
package body Limited1_Outer is
   function Make_Outer return Outer_Type is
   begin
      return (What => True, Inner => Make_Inner);
   end;
end;