diff --git a/tests/tbs0232.pp b/tests/tbs0232.pp
index e85d06cc2c..543cf8b07a 100644
--- a/tests/tbs0232.pp
+++ b/tests/tbs0232.pp
@@ -1,6 +1,6 @@
 const
-   p : procedure a;stdcall=nil;   { <----- this doesn't what you expect !!!!}
-   p : procedure a stdcall=nil;   { so delphi supports also this way of }
+   p1 : procedure;stdcall=nil;   { <----- this doesn't what you expect !!!!}
+   p2 : procedure stdcall=nil;   { so delphi supports also this way of }
                                   { declaration                         }
 
 begin