From d01bde1a83af190e8dfaad3a2e91047550133efc Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 22 May 2005 11:57:24 +0000
Subject: [PATCH] + $WARN directive implemented fixes bug #3939

git-svn-id: trunk@65 -
---
 .gitattributes         | 1 +
 compiler/scandir.pas   | 1 +
 tests/webtbs/tw3939.pp | 7 +++++++
 3 files changed, 9 insertions(+)
 create mode 100644 tests/webtbs/tw3939.pp

diff --git a/.gitattributes b/.gitattributes
index 92e2a3605d..87ba150f7b 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -6109,6 +6109,7 @@ tests/webtbs/tw3893.pp svneol=native#text/plain
 tests/webtbs/tw3898.pp svneol=native#text/plain
 tests/webtbs/tw3899.pp svneol=native#text/plain
 tests/webtbs/tw3900.pp svneol=native#text/plain
+tests/webtbs/tw3939.pp svneol=native#text/plain
 tests/webtbs/tw3953a.pp svneol=native#text/plain
 tests/webtbs/tw3953b.pp svneol=native#text/plain
 tests/webtbs/tw3967.pp svneol=native#text/plain
diff --git a/compiler/scandir.pas b/compiler/scandir.pas
index 56b3a843fe..7a0432d5af 100644
--- a/compiler/scandir.pas
+++ b/compiler/scandir.pas
@@ -1163,6 +1163,7 @@ implementation
         AddDirective('VARSTRINGCHECKS',directive_all, @dir_varstringchecks);
         AddDirective('VERSION',directive_all, @dir_version);
         AddDirective('WAIT',directive_all, @dir_wait);
+        AddDirective('WARN',directive_all, @dir_warnings);
         AddDirective('WARNING',directive_all, @dir_warning);
         AddDirective('WARNINGS',directive_all, @dir_warnings);
         AddDirective('WEAKPACKAGEUNIT',directive_all, @dir_weakpackageunit);
diff --git a/tests/webtbs/tw3939.pp b/tests/webtbs/tw3939.pp
new file mode 100644
index 0000000000..9d140f5a0f
--- /dev/null
+++ b/tests/webtbs/tw3939.pp
@@ -0,0 +1,7 @@
+{$warn+}
+{$warnings-}
+{$warn-}
+{$warnings+}
+begin
+end.
+