#1850 bug report test

tests/webtbs/tw1850.pp

@@ -0,0 +1,12 @@
+{ Source provided for Free Pascal Bug Report 1850 }
+{ Submitted by "Sebastian Günther" on  2002-03-06 }
+{ e-mail: [email protected] }
+type                                                                                                                  
+  TMyRecord = record                                                                                                  
+    a, b: Integer;                                                                                                    
+  end;                                                                                                                
+var                                                                                                                   
+  r: TMyRecord;                                                                                                       
+begin                                                                                                                 
+  with r do;                                                                                                          
+end.