gcc/testsuite/gcc.dg/torture/matrix-1.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
  13 /* The whole matrix VEL is flattened (3 dimensions).  */
  14 /*--------------------------------------------------------------------------*/
  15
  16 int
  17 main (int argc, char **argv)
  18 {
  19   int i, j, k, id;
  20
  21   ARCHnodes = 2;
  22   ARCHnodes1 = 4;
  23
  24 /* Dynamic memory allocations and initializations */
  25   mem_init ();
  26
  27   for (i = 0; i < ARCHnodes; i++)
  28     {
  29       for (j = 0; j < 3; j++)
  30         {
  31           for (k = 0; k < ARCHnodes1; k++)
  32             printf ("[%d][%d][%d]=%d ", i, j, k, vel[i][j][k]);
  33           printf ("\n");
  34         }
  35       printf ("\n");
  36     }
  37   for (i = 0; i < ARCHnodes; i++)
  38     for (j = 0; j < 3; j++)
  39       free (vel[i][j]);
  40
  41   for (i = 0; i < ARCHnodes; i++)
  42     free (vel[i]);
  43
  44   free (vel);
  45   return 0;
  46 }
  47
  48 /*--------------------------------------------------------------------------*/
  49 /* Dynamic memory allocations and initializations                           */
  50
  51 void
  52 mem_init (void)
  53 {
  54
  55   int i, j, k,d;
  56
  57   d = 0;
  58   vel = (int ***) malloc (ARCHnodes * sizeof (int **));
  59
  60   for (i = 0; i < ARCHnodes; i++)
  61     {
  62       vel[i] = (int **) malloc (3 * sizeof (int *));
  63       if (vel[i] == (int **) NULL)
  64         {
  65           fprintf (stderr, "malloc failed for vel[%d]\n", i);
  66           fflush (stderr);
  67           exit (0);
  68         }
  69     }
  70   for (i = 0; i < ARCHnodes; i++)
  71     {
  72       for (j = 0; j < 3; j++)
  73         {
  74           vel[i][j] = (int *) malloc (ARCHnodes1 * sizeof (int));
  75         }
  76     }
  77   for (i = 0; i < ARCHnodes; i++)
  78     {
  79       for (j = 0; j < 3; j++)
  80         {
  81           for (k = 0; k < ARCHnodes1; k++)
  82             {
  83               vel[i][j][k] = d;
  84               d++;
  85             }
  86         }
  87     }
  88 }
  89
  90 /*--------------------------------------------------------------------------*/