From de0d0678f50b3533dd978d811ede14c24c7542ae Mon Sep 17 00:00:00 2001
From: carl <carl@freepascal.org>
Date: Thu, 7 Mar 2002 17:34:34 +0000
Subject: [PATCH] #1850 bug report test

---
 tests/webtbs/tw1850.pp | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 tests/webtbs/tw1850.pp

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.