+ initial version (should not give warning)

tests/tbs/tb0376.pp

@@ -0,0 +1,13 @@
+{%OPT=-Sew}
+{$mode objfpc}
+
+function f: longint;
+var
+   a: longint absolute result;
+begin
+   a := 5;
+end;
+
+begin
+  f;
+end.