1  main ()
       2  {
       3    int i, j, k, l;
       4    float x[8][2][8][2];
       5  
       6    for (i = 0; i < 8; i++)
       7      for (j = i; j < 8; j++)
       8        for (k = 0; k < 2; k++)
       9  	for (l = 0; l < 2; l++)
      10  	  {
      11  	    if ((i == j) && (k == l))
      12  	      x[i][k][j][l] = 0.8;
      13  	    else
      14  	      x[i][k][j][l] = 0.8;
      15  	    if (x[i][k][j][l] < 0.0)
      16  	      abort ();
      17  	  }
      18  
      19    exit (0);
      20  }