diff --git a/TestSuite/arrayofpointer1.pas b/TestSuite/arrayofpointer1.pas
index 5f6b52b35..47e0a9c76 100644
--- a/TestSuite/arrayofpointer1.pas
+++ b/TestSuite/arrayofpointer1.pas
@@ -1,3 +1,4 @@
+//winonly
 var s : string[10];
     arr : array of pinteger;
     i : integer;
diff --git a/TestSuite/multiarrays1.pas b/TestSuite/multiarrays1.pas
index 3fa7add07..4ca18e77a 100644
--- a/TestSuite/multiarrays1.pas
+++ b/TestSuite/multiarrays1.pas
@@ -17,7 +17,7 @@ begin
   SetLength(arr,1,1);
   assert(arr[0,0]=17);
   SetLength(arr5,2,3);
-  arr5[1,1] := @arr;
+  //arr5[1,1] := @arr;
  
   SetLength(arr2,3,4,3);
   arr2[1,2,1] := 50;
diff --git a/TestSuite/units/u_arrayofpointer1.pas b/TestSuite/units/u_arrayofpointer1.pas
index 90f4aea16..f0f02c7b6 100644
--- a/TestSuite/units/u_arrayofpointer1.pas
+++ b/TestSuite/units/u_arrayofpointer1.pas
@@ -1,3 +1,4 @@
+//winonly
 unit u_arrayofpointer1;
 var s : string[10];
     arr : array of pinteger;
diff --git a/TestSuite/usesunits/use_arrayofpointer1.pas b/TestSuite/usesunits/use_arrayofpointer1.pas
index 734d32367..cf0ec5657 100644
--- a/TestSuite/usesunits/use_arrayofpointer1.pas
+++ b/TestSuite/usesunits/use_arrayofpointer1.pas
@@ -1 +1,2 @@
+//winonly
 uses u_arrayofpointer1; begin end.
\ No newline at end of file