2 /* { dg-options "-fwhole-program" } */
11 int ARCHnodes
, ARCHnodes1
;
14 /* The last dimension of VEL escapes because of
15 the assignment : vel[1][1] =...
16 Only the two external dimensions are flattened. */
19 /*--------------------------------------------------------------------------*/
22 main (int argc
, char **argv
)
29 /* Dynamic memory allocations and initializations */
33 for (i
= 0; i
< ARCHnodes
; i
++)
35 for (j
= 0; j
< 3; j
++)
37 for (k
= 0; k
< ARCHnodes1
; k
++)
38 printf ("[%d][%d][%d]=%d ", i
, j
, k
, vel
[i
][j
][k
]);
43 for (i
= 0; i
< ARCHnodes
; i
++)
44 for (j
= 0; j
< 3; j
++)
45 printf ("%x\n",vel
[i
][j
]);
52 for (i
= 0; i
< ARCHnodes
; i
++)
59 /*--------------------------------------------------------------------------*/
60 /* Dynamic memory allocations and initializations */
69 vel
= (int ***) malloc (ARCHnodes
* sizeof (int **));
71 for (i
= 0; i
< ARCHnodes
; i
++)
73 vel
[i
] = (int **) malloc (3 * sizeof (int *));
74 if (vel
[i
] == (int **) NULL
)
76 fprintf (stderr
, "malloc failed for vel[%d]\n", i
);
81 for (i
= 0; i
< ARCHnodes
; i
++)
83 for (j
= 0; j
< 3; j
++)
85 vel
[i
][j
] = (int *) malloc (ARCHnodes1
* sizeof (int));
86 printf ("%x %d %d\n",vel
[i
][j
], ARCHnodes1
, sizeof (int));
89 for (i
= 0; i
< ARCHnodes
; i
++)
91 for (j
= 0; j
< 3; j
++)
93 printf ("%x\n",vel
[i
][j
]);
97 printf ("again:\n\n");
98 for (i
= 0; i
< ARCHnodes
; i
++)
100 for (j
= 0; j
< 3; j
++)
102 printf ("%x\n",vel
[i
][j
]);
103 /*for (k = 0; k < ARCHnodes1; k++)
110 /*vel[1][1] = vel[0][1];*/
113 /*--------------------------------------------------------------------------*/