+ add tests to ensure that the assignment of nested function variables to function references is forbidden

tests/test/tfuncref35.pp

@@ -0,0 +1,19 @@
+{ %FAIL }
+
+program tfuncref35;
+
+{$mode objfpc}
+{$modeswitch functionreferences}
+{$modeswitch nestedprocvars}
+
+type
+  TProcRef = reference to procedure;
+  TNestedVar = procedure is nested;
+
+var
+  f: TProcRef;
+  v: TNestedVar;
+begin
+  f := v;
+end.
+

tests/test/tfuncref36.pp

@@ -0,0 +1,19 @@
+{ %FAIL }
+
+program tfuncref35;
+
+{$mode delphi}
+{$modeswitch functionreferences}
+{$modeswitch nestedprocvars}
+
+type
+  TProcRef = reference to procedure;
+  TNestedVar = procedure is nested;
+
+var
+  f: TProcRef;
+  v: TNestedVar;
+begin
+  f := v;
+end.
+