mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 06:11:54 +02:00
13 lines
156 B
ObjectPascal
13 lines
156 B
ObjectPascal
{ %fail }
|
|
program ie2017110102;
|
|
|
|
type
|
|
tt = procedure; internproc;
|
|
|
|
var
|
|
ff: tt;
|
|
|
|
begin
|
|
ff; // project1.lpr(10,5) Error: Internal error 2017110102
|
|
end.
|