* testcase for last commit

git-svn-id: trunk@10337 -

.gitattributes

@@ -6729,6 +6729,7 @@ tests/tbs/tb0541.pp svneol=native#text/plain
 tests/tbs/tb0542.pp svneol=native#text/plain
 tests/tbs/tb0543.pp svneol=native#text/plain
 tests/tbs/tb0544.pp svneol=native#text/plain
+tests/tbs/tb0545.pp svneol=native#text/plain
 tests/tbs/tb205.pp svneol=native#text/plain
 tests/tbs/ub0060.pp svneol=native#text/plain
 tests/tbs/ub0069.pp svneol=native#text/plain

tests/tbs/tb0545.pp

@@ -0,0 +1,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.