* ensure that Insert() of a single element into a dynamic array is typechecked in a way that the user is notified of errors

+ added test

compiler/ninl.pas

@@ -5541,7 +5541,11 @@ implementation
                      datan:=caddrnode.create_internal(ctemprefnode.create(datatemp));
                    end
                  else
-                   datan:=caddrnode.create_internal(ctypeconvnode.create_internal(firstn,tarraydef(second).elementdef));
+                   begin
+                     datan:=firstn;
+                     inserttypeconv(datan,tarraydef(second).elementdef);
+                     datan:=caddrnode.create_internal(datan);
+                   end;
                  datacountn:=cordconstnode.create(1,sizesinttype,false);
                end;
              procname:='fpc_dynarray_insert';

tests/tbf/tb0298.pp

@@ -0,0 +1,19 @@
+{ %FAIL }
+
+program tb0298;
+
+{$mode delphi}
+{$modeswitch functionreferences}
+
+type
+  TMyProc = reference to procedure(aArg: LongInt);
+
+procedure Test(aArg: TObject);
+begin
+end;
+
+var
+  arr: array of TMyProc;
+begin
+  Insert(Test, arr, 0);
+end.