@@ -0,0 +1,35 @@
+{ %OPT=-Sg }
+program jumptab;
+
+{$asmmode intel}
+procedure x;
+label a;
+var b:pointer;
+begin
+ b:=@a;
+a:
+end;
+procedure jumptabproc; assembler;
+label a,b,c,d;
+const jumptable:array[0..3] of pointer=(@a,@b,@b,@d);
+asm
+ nop
+b:
+c:
+d:
+end.