Imported Upstream version 4.8.1
[platform/upstream/gcc48.git] / gcc / testsuite / gcc.dg / torture / transpose-2.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    No transposing is necessary.  */
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 < 2; j++)
30     {
31       for (i = 0; i < 4; i++)
32         {
33           for (k = 0; k < 2; k++)
34         {
35             printf ("[%d][%d][%d]=%d ", i, j, k, vel[k][k][k]);
36         }
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 }
93
94 /*--------------------------------------------------------------------------*/