no message

tests/tbs/tb0484.pp

@@ -1,8 +1,21 @@
 type
-  r = record
+  r1 = record
     p : procedure stdcall;
     i : longint;
   end;
 
+  r2 = record
+    p : procedure;
+    i : longint;
+  end;
+
+  r3 = record
+    p : procedure
+  end;
+
+  r4 = record
+    p : procedure stdcall
+  end;
+
 begin
-end.
+end.