Merged revisions 8226 via svnmerge from

http://svn.freepascal.org/svn/fpc/trunk

........
r8226 | peter | 2007-08-05 22:31:12 +0200 (Sun, 05 Aug 2007) | 2 lines

  * more resets of failed

........

git-svn-id: branches/fixes_2_2@8227 -

tests/test/cg/tcalext.pp

@@ -489,6 +489,7 @@ begin
     WriteLn('Passed!');
 
   Write('External mixed parameter testing with floating values...');
+  failed := false;
 
   clear_values;
   clear_globals;
@@ -520,7 +521,6 @@ begin
     WriteLn('Passed!');
 
   Write('External struct parameter testing...');
-
   failed := false;
 
   clear_values;
@@ -586,7 +586,6 @@ begin
 
 
   Write('External mixed struct/byte parameter testing...');
-
   failed := false;
 
   clear_values;
@@ -708,6 +707,7 @@ begin
 
   Write('pchar function result testing...');
   failed := false;
+  
   { verify if the contents both strings are equal }
   pc := test_function_pchar;
   if strcomp(pc, RESULT_PCHAR) <> 0 then
@@ -752,6 +752,7 @@ begin
     WriteLn('Passed!');
 
   Write('Function result testing for struct...');
+  failed := false;
 
   tinystruct := test_function_tiny_struct;
   if tinystruct.u8 <> RESULT_U8BIT then