* fixed some tests involving extended/double/currency after previous

    optimization

git-svn-id: trunk@9039 -

tests/test/cg/variants/tvarol157.pp

@@ -1,4 +1,3 @@
-{ %fail }
 {$ifndef bigfile}
 {$ifdef fpc}
 {$mode delphi}
@@ -17,13 +16,12 @@ type
 procedure test157(a: double); overload;
   begin
     writeln('double called instead of extended');
-    writeln('XXX')
   end;
 
 procedure test157(a: extended); overload;
   begin
     writeln('extended called instead of double');
-    writeln('YYY')
+    halt(1)
   end;
 
 var
@@ -40,7 +38,7 @@ begin
     test157(v);
   except
     on E : TObject do
-      writeln('QQQ');
+      halt(1);
   end;
 
   try
@@ -48,7 +46,7 @@ begin
     test157(v);
   except
     on E : TObject do
-      writeln('VVV');
+      halt(1);
   end;
 end;
 
@@ -57,5 +55,5 @@ end;
 end. {$endif not bigfile}
 {$else FPC_HAS_TYPE_EXTENDED}
 begin
-end. {$endif not bigfile}
+end.
 {$endif FPC_HAS_TYPE_EXTENDED}

tests/test/cg/variants/tvarol31.pp

@@ -1,4 +1,3 @@
-{ %fail }
 {$ifndef bigfile}
 {$ifdef fpc}
 {$mode delphi}
@@ -17,13 +16,12 @@ type
 procedure test31(a: comp31); overload;
   begin
     writeln('comp31 called instead of extended');
-    writeln('XXX')
   end;
 
 procedure test31(a: extended); overload;
   begin
     writeln('extended called instead of comp31');
-    writeln('YYY')
+    halt(1)
   end;
 
 var
@@ -40,7 +38,7 @@ begin
     test31(v);
   except
     on E : TObject do
-      writeln('QQQ');
+      halt(1);
   end;
 
   try
@@ -48,7 +46,7 @@ begin
     test31(v);
   except
     on E : TObject do
-      writeln('VVV');
+      halt(1);
   end;
 end;
 
@@ -57,5 +55,5 @@ end;
 end. {$endif not bigfile}
 {$else FPC_HAS_TYPE_EXTENDED}
 begin
-end. {$endif not bigfile}
+end.
 {$endif FPC_HAS_TYPE_EXTENDED}

tests/test/cg/variants/tvarol62.pp

@@ -1,4 +1,3 @@
-{ %fail }
 {$ifndef bigfile}
 {$ifdef fpc}
 {$mode delphi}
@@ -17,13 +16,12 @@ type
 procedure test62(a: currency); overload;
   begin
     writeln('currency called instead of extended');
-    writeln('XXX')
   end;
 
 procedure test62(a: extended); overload;
   begin
     writeln('extended called instead of currency');
-    writeln('YYY')
+    halt(1)
   end;
 
 var
@@ -40,7 +38,7 @@ begin
     test62(v);
   except
     on E : TObject do
-      writeln('QQQ');
+      halt(1);
   end;
 
   try
@@ -48,7 +46,7 @@ begin
     test62(v);
   except
     on E : TObject do
-      writeln('VVV');
+      halt(1);
   end;
 end;
 
@@ -57,5 +55,5 @@ end;
 end. {$endif not bigfile}
 {$else FPC_HAS_TYPE_EXTENDED}
 begin
-end. {$endif not bigfile}
+end.
 {$endif FPC_HAS_TYPE_EXTENDED}

tests/utils/variants/genvartests.pp

@@ -127,7 +127,7 @@ begin
                (j=curridx) then
               { compilation has to fail }
               writeln(t,'  abc');
-            writeln(t,'end. {$endif not bigfile}');
+            writeln(t,'end.');
             writeln(t,'{$endif FPC_HAS_TYPE_EXTENDED}');
           end;