Subversion Repositories openrisc

/* { dg-do compile } */

#include <stdio.h>

#include <stdlib.h>

#include <math.h>

#include <string.h>

void mem_init (void);

int ARCHnodes, ARCHnodes1;

int ***vel;

void just_a_call (int *);

/* The last dimension of VEL escapes because it was sent

   as argumet to just_a_call(). (external function)

   Only the two external dimensions are flattened.

   Run with -c.  */

/*--------------------------------------------------------------------------*/

int

main (int argc, char **argv)

{

  int i, j, k;

  ARCHnodes = 2;

  ARCHnodes1 = 4;

/* Dynamic memory allocations and initializations */

  mem_init ();

  for (i = 0; i < ARCHnodes; i++)

    {

      for (j = 0; j < 3; j++)

        {

          for (k = 0; k < ARCHnodes1; k++)

            printf ("[%d][%d][%d]=%d ", i, j, k, vel[i][j][k]);

          printf ("\n");

        }

      printf ("\n");

    }

  for (i = 0; i < ARCHnodes; i++)

    for (j = 0; j < 3; j++)

      free (vel[i][j]);

  for (i = 0; i < ARCHnodes; i++)

    free (vel[i]);

  free (vel);

  return 0;

}

/*--------------------------------------------------------------------------*/

/* Dynamic memory allocations and initializations                           */

void

mem_init (void)

{

  int i, j, k,d;

  d = 0;

  vel = (int ***) malloc (ARCHnodes * sizeof (int **));

  for (i = 0; i < ARCHnodes; i++)

    {

      vel[i] = (int **) malloc (3 * sizeof (int *));

      if (vel[i] == (int **) NULL)

        {

          fprintf (stderr, "malloc failed for vel[%d]\n", i);

          fflush (stderr);

          exit (0);

        }

    }

  for (i = 0; i < ARCHnodes; i++)

    {

      for (j = 0; j < 3; j++)

        {

          vel[i][j] = (int *) malloc (ARCHnodes1 * sizeof (int));

        }

    }

  for (i = 0; i < ARCHnodes; i++)

    {

      for (j = 0; j < 3; j++)

        {

          for (k = 0; k < ARCHnodes1; k++)

            {

              vel[i][j][k] = d;

              d++;

            }

        }

    }

  just_a_call (vel[1][1]);

}

/*--------------------------------------------------------------------------*/

/* { dg-final { scan-ipa-dump-times "Flattened 2 dimensions" 1 "matrix-reorg"  } } */

/* { dg-final { cleanup-ipa-dump "matrix-reorg" } } */