/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/exceptions3.pas
18 строк
278 B
Бондарев Иван
bug fix: continue in nested try-while blocks
27 сен 2017, 21:47
27 сен 2017, 21:47
083e9c1
Код
Авторство
О чём код?
begin var i := 0; try while true do begin Inc(i); try if i > 3 then raise new Exception(); continue; except on e1: Exception do break; end; end; except on e: Exception do end; assert(i = 4); end.