diff --git a/tests/webtbs/tw3131.pp b/tests/webtbs/tw3131.pp
index 23db04828d..862278b8cc 100644
--- a/tests/webtbs/tw3131.pp
+++ b/tests/webtbs/tw3131.pp
@@ -1,8 +1,12 @@
+{ %cpu=i386 }
+
 { Source provided for Free Pascal Bug Report 3131 }
 { Submitted by "Arnstein Prytz" on  2004-06-02 }
 { e-mail: Arnstein.Prytz@jcu.edu.au }
 program tmp;
 
+{$asmmode intel}
+
 procedure l;
   label l1;
   begin