gcc/testsuite/gnat.dg/controlled2.adb

   1 --  { dg-do compile }
   2
   3 pragma Warnings
   4   (Off, "anonymous access-to-controlled object will be finalized when its enclosing unit goes out of scope");
   5
   6 with controlled1; use controlled1;
   7 package body controlled2 is
   8    procedure Test_Suite is
   9    begin
  10       Add_Test
  11         (new Test_Case'(Test_Case1 with Link_Under_Test => 300));
  12    end Test_Suite;
  13 end controlled2;