diff options
Diffstat (limited to 'gcc-4.8.1/gcc/testsuite/gcc.dg/torture/matrix-3.c')
-rw-r--r-- | gcc-4.8.1/gcc/testsuite/gcc.dg/torture/matrix-3.c | 97 |
1 files changed, 0 insertions, 97 deletions
diff --git a/gcc-4.8.1/gcc/testsuite/gcc.dg/torture/matrix-3.c b/gcc-4.8.1/gcc/testsuite/gcc.dg/torture/matrix-3.c deleted file mode 100644 index c646899a3..000000000 --- a/gcc-4.8.1/gcc/testsuite/gcc.dg/torture/matrix-3.c +++ /dev/null @@ -1,97 +0,0 @@ -/* { 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]); -} - -/*--------------------------------------------------------------------------*/ |