Require target lra in gcc.dg/pr108095.c

[official-gcc.git] / gcc / testsuite / gnat.dg / freezing1.ads

with Freezing1_Pack; use Freezing1_Pack;

package Freezing1 is
   type T is abstract tagged record
      Collection : access I_Interface_Collection'Class :=
        new I_Interface_Collection'Class'(Factory.Create_Collection);
   end record;

   procedure Foo;
end Freezing1;