diff --git a/compiler/psub.pas b/compiler/psub.pas
index b5b1c43b23..34d8dfab98 100644
--- a/compiler/psub.pas
+++ b/compiler/psub.pas
@@ -217,7 +217,7 @@ implementation
          exit;
         with tabstractnormalvarsym(p) do
          begin
-           if vo_is_default_var in varoptions then
+           if (vo_is_default_var in varoptions) and (vardef.size>0) then
              begin
                b:=tblocknode(arg);
                b.left:=cstatementnode.create(