gcc/testsuite/gnat.dg/controlled4.adb

   1 -- { dg-do compile }
   2 -- { dg-options "-gnatws" }
   3
   4 package body controlled4 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;