gcc/testsuite/gcc.dg/torture/transpose-3.c

   1 /* { dg-do run } */
   2 /* { dg-options "-fwhole-program" } */
   3
   4 #include <stdio.h>
   5 #include <stdlib.h>
   6 #include <math.h>
   7 #include <string.h>
   8
   9 void mem_init (void);
  10 int ARCHnodes, ARCHnodes1;
  11 int ***vel;
  12 /* The inner most dimension escapes.
  13    The two external dimensions are flattened
  14    after being transposed.  */
  15 /*--------------------------------------------------------------------------*/
  16
  17 int
  18 main (int argc, char **argv)
  19 {
  20   int i, j, k;
  21
  22   ARCHnodes = 2;
  23   ARCHnodes1 = 4;
  24
  25 /* Dynamic memory allocations and initializations */
  26
  27   mem_init ();
  28
  29   for (j = 0; j < 4; j++)
  30     {
  31       for (i = 0; i < 3; i++)
  32         {
  33           for (k = 0; k < 2; k++)
  34            {
  35             printf ("[%d][%d][%d]=%d ", i, j, k, vel[k][i][j]);
  36            }
  37           printf ("\n");
  38         }
  39       printf ("\n");
  40     }
  41   vel[0][0]=vel[1][1];
  42
  43   for (i = 0; i < 2; i++)
  44     for (j = 0; j < 3; j++)
  45       if (i==1 && j==1)
  46         continue;
  47       else
  48         free (vel[i][j]);
  49
  50   for (i = 0; i < 2; i++)
  51     free (vel[i]);
  52
  53   free (vel);
  54   return 0;
  55 }
  56
  57 /*--------------------------------------------------------------------------*/
  58 /* Dynamic memory allocations and initializations                           */
  59
  60 void
  61 mem_init (void)
  62 {
  63
  64   signed int i, j, k,d;
  65
  66   d = 0;
  67   vel = (int ***) malloc (ARCHnodes * sizeof (int **));
  68
  69   for (i = 0; i < ARCHnodes; i++)
  70     {
  71       vel[i] = (int **) malloc (3 * sizeof (int *));
  72       if (vel[i] == (int **) NULL)
  73         {
  74           printf ("malloc failed for vel[%d]\n", i);
  75           exit (0);
  76         }
  77     }
  78   for (i = 0; i < ARCHnodes; i++)
  79     {
  80       for (j = 0; j < 3; j++)
  81         {
  82           vel[i][j] = (int *) malloc (ARCHnodes1 * sizeof (int));
  83         }
  84     }
  85   for (i = 0; i < ARCHnodes; i++)
  86     {
  87       for (j = 0; j < 3; j++)
  88         {
  89           for (k = 0; k < ARCHnodes1; k++)
  90             {
  91               printf ("acc to dim2 ");
  92               vel[i][j][k] = d;
  93               d++;
  94             }
  95         }
  96     }
  97   printf ("\n");
  98 }
  99
 100 /*--------------------------------------------------------------------------*/