* moved to succes instead of fail

tests/tbf0203.pp → tests/tbs0203.pp

@@ -1,10 +1,10 @@
-program tbf0203;
+program tbs0203;
 
-uses 
+uses
 {$ifdef go32v2}
   dpmiexcp,
 {$endif def go32v2}
-  tbf0203a;
+  tbs0203a;
 
 begin
    c;

tests/tbf0203a.pp → 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;