aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/treelang/execute/funccall.tree
blob: e806d3b583d995341face5c020e97958eed22f17 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
// { dg-do run }
// Tests whether initializtion works properly.
external_reference void abort ();
external_reference void exit (int code);
external_definition int main ();

static int foo ();

foo
{
	automatic int bar;

	bar = +1;
	bar = bar + +1;
	return bar;
}

main
{
  automatic int aaa;

  aaa = foo ();
  
  if (aaa == +2)
    { 
      exit (0);
    }
  else
    {
      abort ();
    }
  return 0;
}