GlobalArrayTest

//+------------------------------------------------------------------+
//|                                              GlobalArrayTest.mq4 |
//|                                      Copyright © 2009, Marketeer |
//|                                              http://www.mql4.com |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2009, Marketeer"
#property link      "http://www.mql4.com"

#include <GlobalArray.mqh>

//+------------------------------------------------------------------+
//| script program start function                                    |
//+------------------------------------------------------------------+
int start()
{
  double A[10] = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9};
  double B[10];
  
  GlobalArraySet("one", A, 10);
  GlobalArrayGet("one", B, 10);
  GlobalArrayDelete("one");
  
  int i;
  for(i = 0; i < 10; i++)
  {
    if(A[i] != B[i]) break;
  }
  
  Print("Error code=", GlobalArrayGet("two", B, 10));
  
  if(i == 10) Comment("GlobalArray QC passed");
  
  return(0);
}
//+------------------------------------------------------------------+