OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
2011-04-29 Jerry DeLisle <jvdelisle@gcc.gnu.org>
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
c_ptr_tests_8_funcs.c
1
/* This file provides auxilliary functions for c_ptr_tests_8. */
2
3
#include <stdio.h>
4
#include <stdlib.h>
5
6
extern void abort (void);
7
8
void *create (void)
9
{
10
int *a;
11
a = malloc (sizeof (a));
12
*a = 444;
13
return a;
14
15
}
16
17
void show (int *a)
18
{
19
if (*a == 444)
20
printf ("SUCCESS (%d)\n", *a);
21
else
22
{
23
printf ("FAILED: Expected 444, received %d\n", *a);
24
abort ();
25
}
26
}