diff --git a/tests/tbs/tb0018.pp b/tests/tbs/tb0018.pp
index cdc4737af1..807d289962 100644
--- a/tests/tbs/tb0018.pp
+++ b/tests/tbs/tb0018.pp
@@ -23,7 +23,7 @@ constructor tobject.c;
   end;
 
 var
-   p : pointer;
+   p : codepointer;
 
 begin
    p:=@a;
diff --git a/tests/tbs/tb0042.pp b/tests/tbs/tb0042.pp
index baaf17b574..885ebfb347 100644
--- a/tests/tbs/tb0042.pp
+++ b/tests/tbs/tb0042.pp
@@ -8,7 +8,7 @@ procedure test;
 
 var
    p1 : procedure;
-   p2 : pointer;
+   p2 : codepointer;
 
 begin
    p1:=@test;
diff --git a/tests/tbs/tb0241b.pp b/tests/tbs/tb0241b.pp
index 06d21721ba..d930a0d9ce 100644
--- a/tests/tbs/tb0241b.pp
+++ b/tests/tbs/tb0241b.pp
@@ -32,7 +32,7 @@ begin
 end;
 
 var
-  p : pointer;
+  p : codepointer;
 
 begin
   writeln('vreemd!');
diff --git a/tests/tbs/tb0403.pp b/tests/tbs/tb0403.pp
index f72520c34a..b2d7903d25 100644
--- a/tests/tbs/tb0403.pp
+++ b/tests/tbs/tb0403.pp
@@ -10,7 +10,7 @@ begin
 end;
 
 var
-  p: pointer;
+  p: codepointer;
 begin
   p := @tclass.t;
 end.