From e72f324f42cdd1c25638125ce71916814f860d01 Mon Sep 17 00:00:00 2001
From: svenbarth <pascaldragon@googlemail.com>
Date: Thu, 24 Sep 2020 11:41:43 +0000
Subject: [PATCH] * according to ISO 10206 (Extended Pascal) 6.9.3.5 the
 "otherwise"-clause is supported for case-statements + added test

git-svn-id: trunk@46943 -
---
 .gitattributes        |  1 +
 compiler/tokens.pas   |  2 +-
 tests/test/tcase50.pp | 12 ++++++++++++
 3 files changed, 14 insertions(+), 1 deletion(-)
 create mode 100644 tests/test/tcase50.pp

diff --git a/.gitattributes b/.gitattributes
index f24e846d38..afcfa07f6f 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -14565,6 +14565,7 @@ tests/test/tcase48.pp svneol=native#text/pascal
 tests/test/tcase48_2.pp svneol=native#text/pascal
 tests/test/tcase49.pp -text svneol=native#text/pascal
 tests/test/tcase5.pp svneol=native#text/pascal
+tests/test/tcase50.pp svneol=native#text/pascal
 tests/test/tcase6.pp svneol=native#text/pascal
 tests/test/tcase7.pp svneol=native#text/pascal
 tests/test/tcase8.pp svneol=native#text/pascal
diff --git a/compiler/tokens.pas b/compiler/tokens.pas
index 05f305048c..f15cd286d8 100644
--- a/compiler/tokens.pas
+++ b/compiler/tokens.pas
@@ -610,7 +610,7 @@ const
       (str:'LOGICALOR'     ;special:false;keyword:[m_none];op:NOTOKEN), { delphi operator name }
       (str:'NODEFAULT'     ;special:false;keyword:[m_none];op:NOTOKEN),
       (str:'OBJCCLASS'     ;special:false;keyword:[m_objectivec1];op:NOTOKEN),
-      (str:'OTHERWISE'     ;special:false;keyword:alllanguagemodes-[m_iso,m_extpas];op:NOTOKEN),
+      (str:'OTHERWISE'     ;special:false;keyword:alllanguagemodes-[m_iso];op:NOTOKEN),
       (str:'PROCEDURE'     ;special:false;keyword:alllanguagemodes;op:NOTOKEN),
       (str:'PROTECTED'     ;special:false;keyword:[m_none];op:NOTOKEN),
       (str:'PUBLISHED'     ;special:false;keyword:[m_none];op:NOTOKEN),
diff --git a/tests/test/tcase50.pp b/tests/test/tcase50.pp
new file mode 100644
index 0000000000..37cf64eef0
--- /dev/null
+++ b/tests/test/tcase50.pp
@@ -0,0 +1,12 @@
+{ %NORUN }
+
+program tcase50;
+
+{$mode ExtendedPascal}
+
+begin
+  case 5 of
+    1, 2, 3: ;
+    otherwise
+  end;
+end.