rt_gccstream/gcc/testsuite/gfortran.dg/c_ptr_tests_8_funcs.c

27 lines
381 B
C

/* This file provides auxilliary functions for c_ptr_tests_8. */
#include <stdio.h>
#include <stdlib.h>
extern void abort (void);
void *create (void)
{
int *a;
a = malloc (sizeof (a));
*a = 444;
return a;
}
void show (int *a)
{
if (*a == 444)
printf ("SUCCESS (%d)\n", *a);
else
{
printf ("FAILED: Expected 444, received %d\n", *a);
abort ();
}
}