OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [treelang/] [execute/] [funccall.tree] - Blame information for rev 154

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 149 jeremybenn
// { dg-do run }
2
// Tests whether initializtion works properly.
3
external_reference void abort ();
4
external_reference void exit (int code);
5
external_definition int main ();
6
 
7
static int foo ();
8
 
9
foo
10
{
11
        automatic int bar;
12
 
13
        bar = +1;
14
        bar = bar + +1;
15
        return bar;
16
}
17
 
18
main
19
{
20
  automatic int aaa;
21
 
22
  aaa = foo ();
23
 
24
  if (aaa == +2)
25
    {
26
      exit (0);
27
    }
28
  else
29
    {
30
      abort ();
31
    }
32
  return 0;
33
}

powered by: WebSVN 2.1.0

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