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
main(int argc,char ** argv)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
mem_init(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 /*--------------------------------------------------------------------------*/
96