gcc/testsuite/gnat.dg/limited_with7.adb

   1 -- { dg-do compile }
   2
   3 with Limited_With7_Pkg; use Limited_With7_Pkg;
   4
   5 package body Limited_With7 is
   6
   7    procedure Proc (R : out Limited_With7_Pkg.Rec) is
   8    begin
   9       R.I := 0;
  10    end;
  11
  12 end Limited_With7;