diff --git a/.gitattributes b/.gitattributes
index 158dc2aefc..0381bc4979 100644
--- a/.gitattributes
+++ b/.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
diff --git a/tests/tbs/tb0545.pp b/tests/tbs/tb0545.pp
new file mode 100644
index 0000000000..654d30f82f
--- /dev/null
+++ b/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.