gcc/testsuite/gnat.dg/cpp_constructor2.adb

   1 --  { dg-do compile }
   2
   3 procedure CPP_Constructor2 is
   4
   5    package P is
   6       type X is tagged limited record
   7          A, B, C, D : Integer;
   8       end record;
   9       pragma Import (Cpp, X);
  10
  11       procedure F1 (V : X);
  12       pragma Import (Cpp, F1);
  13
  14       function F2 return X; --  { dg-error "C\\+\\+ constructor must have external name or link name" }
  15       pragma Cpp_Constructor (F2);
  16    end P;
  17 begin
  18   null;
  19 end CPP_Constructor2;