From 61cbb3222523089dacc2ba1ada8d4a4d119be163 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 22 May 2005 10:58:49 +0000
Subject: [PATCH] * test for bug #3827 added

git-svn-id: trunk@63 -
---
 .gitattributes         |  1 +
 tests/webtbs/tw3827.pp | 14 ++++++++++++++
 2 files changed, 15 insertions(+)
 create mode 100644 tests/webtbs/tw3827.pp

diff --git a/.gitattributes b/.gitattributes
index 7cf8265b94..92e2a3605d 100644
--- a/.gitattributes
+++ b/.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
diff --git a/tests/webtbs/tw3827.pp b/tests/webtbs/tw3827.pp
new file mode 100644
index 0000000000..9a47efd526
--- /dev/null
+++ b/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.