testsuite/gnat.dg/varsize3_3.adb

-- { dg-do compile }

with Varsize3_Pkg1; use Varsize3_Pkg1;

procedure Varsize3_3 is

  Filter : Object;

begin
  Filter := True;
end;