diff --git a/tests/webtbs/tw1850.pp b/tests/webtbs/tw1850.pp
new file mode 100644
index 0000000000..9596963f22
--- /dev/null
+++ b/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: sg@freepascal.org }
+type                                                                                                                  
+  TMyRecord = record                                                                                                  
+    a, b: Integer;                                                                                                    
+  end;                                                                                                                
+var                                                                                                                   
+  r: TMyRecord;                                                                                                       
+begin                                                                                                                 
+  with r do;                                                                                                          
+end.