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     The dimensions are NOT 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 < 3; j++)
      30      {
      31        for (i = 0; i < 2; i++)
      32  	{
      33  	  for (k = 0; k < 3; k++)
      34  	{
      35  	    printf ("[%d][%d][%d]=%d ", i, j, k, vel[i][k][k]);
      36  	}
      37  	  printf ("\n");
      38  	}
      39        printf ("\n");
      40      }
      41    for (i = 0; i < 2; i++)
      42      for (j = 0; j < 3; j++)
      43        free (vel[i][j]);
      44  
      45    for (i = 0; i < 2; 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    signed 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  	  printf ("malloc failed for vel[%d]\n", i);
      70  	  exit (0);
      71  	}
      72      }
      73    for (i = 0; i < ARCHnodes; i++)
      74      {
      75        for (j = 0; j < 3; j++)
      76  	{
      77  	  vel[i][j] = (int *) malloc (ARCHnodes1 * sizeof (int));
      78  	}
      79      }
      80    for (i = 0; i < ARCHnodes; i++)
      81      {
      82        for (j = 0; j < 3; j++)
      83  	{
      84  	  for (k = 0; k < ARCHnodes1; k++)
      85  	    {
      86                printf ("acc to dim2 ");
      87  	      vel[i][j][k] = d;
      88  	      d++;
      89  	    }
      90  	}
      91      }
      92    printf ("\n");
      93  }
      94  
      95  /*--------------------------------------------------------------------------*/