just to be nice to Carl

2025-04-08 06:08:16 +02:00 · 2002-10-30 11:57:36 +00:00 · 2002-10-30 11:57:36 +00:00 · 0c0fdec501
commit 0c0fdec501
parent eede33f5a0
1 changed files with 48 additions and 0 deletions
--- a/tests/tbs/tb0415.pp
+++ 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.