From 352fb866ef19c845756840859c91088f9ed32740 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Thu, 27 Sep 2018 20:24:52 +0000
Subject: [PATCH] * is_range_test returns false if "lower" bound is greater
 than "upper" bound

git-svn-id: trunk@39837 -
---
 .gitattributes      |  1 +
 compiler/nadd.pas   |  3 +++
 tests/tbs/tb0652.pp | 12 ++++++++++++
 3 files changed, 16 insertions(+)
 create mode 100644 tests/tbs/tb0652.pp

diff --git a/.gitattributes b/.gitattributes
index cd0aeed3e0..2d35f41763 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -11714,6 +11714,7 @@ tests/tbs/tb0648.pp svneol=native#text/pascal
 tests/tbs/tb0649.pp -text svneol=native#text/pascal
 tests/tbs/tb0650.pp svneol=native#text/pascal
 tests/tbs/tb0651.pp svneol=native#text/pascal
+tests/tbs/tb0652.pp svneol=native#text/pascal
 tests/tbs/tb205.pp svneol=native#text/plain
 tests/tbs/tb610.pp svneol=native#text/pascal
 tests/tbs/tb613.pp svneol=native#text/plain
diff --git a/compiler/nadd.pas b/compiler/nadd.pas
index 04ad7952d6..c2048f7be1 100644
--- a/compiler/nadd.pas
+++ b/compiler/nadd.pas
@@ -439,6 +439,9 @@ implementation
               cr:=t;
             end;
 
+          if cl>cr then
+            exit;
+
           result:=true;
         end;
 
diff --git a/tests/tbs/tb0652.pp b/tests/tbs/tb0652.pp
new file mode 100644
index 0000000000..bd9d6a7e31
--- /dev/null
+++ b/tests/tbs/tb0652.pp
@@ -0,0 +1,12 @@
+const
+  w : dword = 123;
+
+begin
+  if (w<=1) and (w>=10) then
+    halt(1);
+  if (w>=1) and (w<=1000) then
+    writeln('ok')
+  else
+    halt(1);
+end.
+