'case string of' fails with multiple strings for one branch.
Original Reporter info from Mantis: SIV
-
Reporter name: Igor Sudarikov
Original Reporter info from Mantis: SIV
- Reporter name: Igor Sudarikov
Description:
Provided example should print
1
2
3
4
but it only prints
1
2
Additional information:
var
S :String;
begin
S := 'H';
case S of
'HH','H': WriteLn('1');
end;
S := 'HH';
case S of
'HH': WriteLn('2');
end;
case S of
'HH','H': WriteLn('3');
end;
case S of
'H','HH': WriteLn('4');
end;
end.
Mantis conversion info:
- Mantis ID: 16130
- Build: 15037
- Version: 2.5.1
- Fixed in version: 2.6.0
- Fixed in revision: 15212 (#f3c572ed)
- Monitored by: » @MageSlayer (Denis Golovan)