diff --git a/tests/tbf0203.pp b/tests/tbs0203.pp
similarity index 67%
rename from tests/tbf0203.pp
rename to tests/tbs0203.pp
index e339afa201..8c41ae7a8d 100644
--- a/tests/tbf0203.pp
+++ b/tests/tbs0203.pp
@@ -1,10 +1,10 @@
-program tbf0203;
+program tbs0203;
 
-uses 
+uses
 {$ifdef go32v2}
   dpmiexcp,
 {$endif def go32v2}
-  tbf0203a;
+  tbs0203a;
 
 begin
    c;
diff --git a/tests/tbf0203a.pp b/tests/tbs0203a.pp
similarity index 86%
rename from tests/tbf0203a.pp
rename to tests/tbs0203a.pp
index f425eea19a..0b78efca78 100644
--- a/tests/tbf0203a.pp
+++ b/tests/tbs0203a.pp
@@ -1,4 +1,4 @@
-unit tbf0203a;
+unit tbs0203a;
 
 interface
    procedure a;
@@ -15,7 +15,7 @@ implementation
 
    procedure b;[public, alias : '_assembler_a'];
      begin
-        Writeln('b called'); 
+        Writeln('b called');
         Is_called:=true;
      end;