OpenCores
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/] [gcc.dg/] [torture/] [ssa-pta-fn-1.c] - Blame information for rev 839

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 298 jeremybenn 
/* { dg-do run } */
2 
/* { dg-options "-fdump-tree-alias" } */
3 
/* { dg-skip-if "" { *-*-* } { "-O0" } { "" } } */
4 
 
5 
extern void abort (void);
6 
int *glob;
7 
int dummy;
8 
 
9 
int * __attribute__((noinline,const))
10 
foo_const(int *p) { return p; }
11 
 
12 
int * __attribute__((noinline,pure))
13 
foo_pure(int *p) { return p + dummy; }
14 
 
15 
int * __attribute__((noinline))
16 
foo_normal(int *p) { glob = p; return p; }
17 
 
18 
void test_const(void)
19 
{
20 
  int i;
21 
  int *p = &i;
22 
  int *q_const = foo_const(p);
23 
  *p = 1;
24 
  *q_const = 2;
25 
  if (*p != 2)
26 
    abort ();
27 
}
28 
 
29 
void test(void)
30 
{
31 
  int i;
32 
  int *p = &i;
33 
  int *q_normal = foo_normal(p);
34 
  *p = 1;
35 
  *q_normal = 2;
36 
  if (*p != 2)
37 
    abort ();
38 
}
39 
 
40 
void test_pure(void)
41 
{
42 
  int i;
43 
  int *p = &i;
44 
  int *q_pure = foo_pure(p);
45 
  *p = 1;
46 
  *q_pure = 2;
47 
  if (*p != 2)
48 
    abort ();
49 
}
50 
 
51 
int main()
52 
{
53 
  test_const();
54 
  test();
55 
  test_pure();
56 
  return 0;
57 
}
58 
 
59 
/* { dg-final { scan-tree-dump "q_const_., points-to non-local, points-to vars: { i }" "alias" } } */
60 
/* { dg-final { scan-tree-dump "q_pure_., points-to non-local, points-to escaped, points-to vars: { i }" "alias" } } */
61 
/* { dg-final { scan-tree-dump "q_normal_., points-to non-local, points-to escaped, points-to vars: { }" "alias" } } */
62 
/* { dg-final { cleanup-tree-dump "alias" } } */

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.