procedure Test is
type N is null record;
type T is not null access protected function return
not null access protected function return
not null access protected function return
not null access protected function return
not null access protected function return
not null access protected function return N;
begin
null;
end Test;
cHJvY2VkdXJlIFRlc3QgaXMKICB0eXBlIE4gaXMgbnVsbCByZWNvcmQ7CiAgdHlwZSBUIGlzIG5vdCBudWxsIGFjY2VzcyBwcm90ZWN0ZWQgZnVuY3Rpb24gcmV0dXJuCiAgICAgICAgICAgIG5vdCBudWxsIGFjY2VzcyBwcm90ZWN0ZWQgZnVuY3Rpb24gcmV0dXJuCiAgICAgICAgICAgIG5vdCBudWxsIGFjY2VzcyBwcm90ZWN0ZWQgZnVuY3Rpb24gcmV0dXJuCiAgICAgICAgICAgIG5vdCBudWxsIGFjY2VzcyBwcm90ZWN0ZWQgZnVuY3Rpb24gcmV0dXJuCiAgICAgICAgICAgIG5vdCBudWxsIGFjY2VzcyBwcm90ZWN0ZWQgZnVuY3Rpb24gcmV0dXJuCiAgICAgICAgICAgIG5vdCBudWxsIGFjY2VzcyBwcm90ZWN0ZWQgZnVuY3Rpb24gcmV0dXJuIE47CmJlZ2luCiAgbnVsbDsKZW5kIFRlc3Q7