gcc/testsuite/gnat.dg/varsize3_5.adb

-- { dg-do compile }

with Varsize3_Pkg1; use Varsize3_Pkg1;

procedure Varsize3_5 is

  Filter : constant Arr := True.E;

begin
  null;
end;