Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gcc.dg/torture/matrix-5.c @ 131:84e7813d76e9
gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 07:37:49 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
/* { dg-do run } */ /* { dg-options "-fwhole-program" } */ #include <stdio.h> #include <stdlib.h> #include <math.h> #include <string.h> void mem_init (void); int ARCHnodes, ARCHnodes1; int ***vel; /* The two inner dimesions of matrix escape because of the assignment vel[1]= ... VEL is not Flattened. */ /*--------------------------------------------------------------------------*/ 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-1; i++) for (j = 0; j < 3; j++) free (vel[i][j]); for (i = 0; i < ARCHnodes-1; 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) { printf ("malloc failed for vel[%d]\n", i); 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++; } } } vel[1] = vel[0]; } /*--------------------------------------------------------------------------*/