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.