* test for bug #3827 added

git-svn-id: trunk@63 -

.gitattributes

@@ -6098,6 +6098,7 @@ tests/webtbs/tw3796.pp svneol=native#text/plain
 tests/webtbs/tw3805.pp svneol=native#text/plain
 tests/webtbs/tw3812.pp svneol=native#text/plain
 tests/webtbs/tw3814.pp svneol=native#text/plain
+tests/webtbs/tw3827.pp svneol=native#text/plain
 tests/webtbs/tw3833.pp svneol=native#text/plain
 tests/webtbs/tw3840.pp svneol=native#text/plain
 tests/webtbs/tw3863.pp svneol=native#text/plain

tests/webtbs/tw3827.pp

@@ -0,0 +1,14 @@
+{ Source provided for Free Pascal Bug Report 3827 }
+{ Submitted by "Thomas Schatzl" on  2005-03-25 }
+{ e-mail:  }
+{$MODE DELPHI}
+
+uses
+  sysutils;
+  
+var
+  guid : tguid;  
+
+begin
+  CreateGUID(guid);
+end.