/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/pointers9.pas
18 строк
199 B
Бондарев Иван
fix #1381
28 окт 2018, 14:41
28 окт 2018, 14:41
aee5723
Код
Авторство
О чём код?
type r1 = record end; var h1: ^r1; hh1: ^^r1; procedure p1(var h: ^r1); begin var hh:=@h; assert(hh = hh1); assert(h = h1); end; begin New(h1); hh1 := @h1; p1(h1); end.