paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 23:47:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

* according to ISO 10206 (Extended Pascal) 6.9.3.5 the "otherwise"-clause is supported for case-statements

Browse Source 
+ added test

git-svn-id: trunk@46943 -
This commit is contained in:
svenbarth 2020-09-24 11:41:43 +00:00
parent ea4950ee91
commit e72f324f42
3 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -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

2
compiler/tokens.pas
View File

@ -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),

12
tests/test/tcase50.pp Normal file
View File

@ -0,0 +1,12 @@
{ %NORUN }
program tcase50;
{$mode ExtendedPascal}
begin
case 5 of
1, 2, 3: ;
otherwise
end;
end.