gcc/testsuite/gnat.dg/controlled4.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 package body controlled4 is
   7    procedure Test_Suite is
   8    begin
   9       Add_Test
  10         (new Test_Case'(Test_Case1 with Link_Under_Test => 300));
  11    end Test_Suite;
  12 end;