gcc/testsuite/gnat.dg/controlled2.adb

   1 --  { dg-do compile }
   2
   3 with controlled1; use controlled1;
   4 package body controlled2 is
   5    procedure Test_Suite is
   6    begin
   7       Add_Test
   8         (new Test_Case'(Test_Case1 with Link_Under_Test => 300));
   9    end Test_Suite;
  10 end controlled2;