gcc/testsuite/gnat.dg/cpp_constructor_useit.ads

   1 with Interfaces.C; use Interfaces.C;
   2
   3 package Cpp_Constructor_Useit is
   4    function My_Fn (Val : int) return int
   5    with Convention => Cpp;
   6
   7    function My_Fn (Val : int) return int is (Val + 1);
   8 end Cpp_Constructor_Useit;