view gcc/testsuite/gnat.dg/controlled4.adb @ 118:fd00160c1b76

ifdef TARGET_64BIT
author mir3636
date Tue, 27 Feb 2018 15:01:35 +0900
parents 04ced10e8804
children 84e7813d76e9
line wrap: on
line source

--  { dg-do compile }

package body controlled4 is
   procedure Test_Suite is
   begin
      Add_Test
        (new Test_Case'(Test_Case1 with Link_Under_Test => 300));
   end Test_Suite;
end;