blob: 654d30f82f6f3cde0f38db9d8c654132609e0370 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
{ %OPT=-gl -OG1 -S2cgi }
program Project1;
{$mode objfpc}{$H+}
procedure my_very_looooooooong_idenfier_procedure_1;
procedure my_very_looooooooong_idenfier_procedure_2;
procedure my_very_looooooooong_idenfier_procedure_3;
begin
// bug
end;
begin
my_very_looooooooong_idenfier_procedure_3;
end;
begin
my_very_looooooooong_idenfier_procedure_2;
end;
begin
my_very_looooooooong_idenfier_procedure_1;
end.
|
