URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gfortran.dg/] [c_ptr_tests_8_funcs.c] - Blame information for rev 516

Details | Compare with Previous | View Log


/* 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 ();
  }
}

Line No.	Rev	Author	Line
1	302	jeremybenn	`/* 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			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gfortran.dg/] [c_ptr_tests_8_funcs.c] - Blame information for rev 516