3 procedure CPP_Constructor2
is
6 type X
is tagged limited record
9 pragma Import
(Cpp
, X
);
12 pragma Import
(Cpp
, F1
);
14 function F2
return X
; -- { dg-error "C\\+\\+ constructor must have external name or link name" }
15 pragma Cpp_Constructor
(F2
);