* 1.1 update

tests/tbs/tb0348.pp

@@ -1,4 +1,5 @@
-{ $VERSION=1.1}
+{ %VERSION=1.1 }
+
   const
      GUID_NULL : TGUID = '{00000000-0000-0000-0000-000000000000}';
 

tests/tbs/tb0350.pp

@@ -1,4 +1,4 @@
-{ $VERSION=1.1}
+{ %VERSION=1.1 }
 {$mode objfpc}
 var
    a : longint absolute 0;

tests/tbs/tb0351.pp

@@ -1,4 +1,4 @@
-{ $VERSION=1.1}
+{ %VERSION=1.1 }
 {$mode objfpc}
 type
    i = interface;

tests/tbs/tb0353.pp

@@ -1,4 +1,5 @@
-{ $VERSION=1.1}
+{ %VERSION=1.1 }
+
   const
       c1 = widechar(0);
       c2 = widechar(#0);

tests/tbs/tb0354.pp

@@ -1,4 +1,4 @@
-{ $VERSION=1.1}
+{ %VERSION=1.1 }
 {$mode delphi}
 type
    a = function ( ) : boolean;

tests/test/tfpu2.pp

@@ -1,3 +1,5 @@
+{ %version=1.1 }
+
 {$mode objfpc}
 program test_fpu_excpetions;
 

tests/test/tunit2.pp

@@ -1,3 +1,4 @@
+{ %VERSION=1.1 }
 { %RECOMPILE }
 unit tunit2;
 

tests/webtbs/tw1409.pp

@@ -6,6 +6,9 @@ type
 
 procedure Test(const Args: array of TPoint);
 begin
+  writeln(Args[0].x,',',Args[0].y);
+  if (Args[0].x<>10) and (Args[0].y<>10) then
+   halt(1);
 end;
 
 const