From 0c0fdec501667fc62fcbbb188f7d40b318029f6c Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Wed, 30 Oct 2002 11:57:36 +0000
Subject: [PATCH]  just to be nice to Carl

---
 tests/tbs/tb0415.pp | 48 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)
 create mode 100644 tests/tbs/tb0415.pp

diff --git a/tests/tbs/tb0415.pp b/tests/tbs/tb0415.pp
new file mode 100644
index 0000000000..78ce700535
--- /dev/null
+++ b/tests/tbs/tb0415.pp
@@ -0,0 +1,48 @@
+{ %CPU=i386 }
+
+{
+  Testing if using the same local label in two
+   procedures does not create an error PM
+}
+
+program test_local_labels;
+
+
+{$asmmode att}
+
+procedure att_test1; assembler;
+
+asm
+  jmp .Llocal
+.Llocal:
+end;
+
+procedure att_test2; assembler;
+
+asm
+  jmp .Llocal
+.Llocal:
+end;
+
+{$asmmode intel}
+
+procedure intel_test1; assembler;
+
+asm
+  jmp @@Llocal
+@@Llocal:
+end;
+
+procedure intel_test2; assembler;
+
+asm
+  jmp @@Llocal
+@@Llocal:
+end;
+
+begin
+  att_test1;
+  att_test2;
+  intel_test1;
+  intel_test2;
+end.