gcc/testsuite/gcc.dg/torture/matrix-4.c

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