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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [treelang/] [execute/] [initial.tree] - Blame information for rev 867

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


// { dg-do run }
// Tests whether initializtion works properly.
external_reference void abort ();
external_reference void exit (int code);
external_definition int main ();
 
main
{
  automatic int aaa = +3;
 
  if (aaa == +3)
    {
      exit (0);
    }
  else
    {
      abort ();
    }
  return 0;
}

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			`main`
8			`{`
9			`automatic int aaa = +3;`
10
11			`if (aaa == +3)`
12			`{`
13			`exit (0);`
14			`}`
15			`else`
16			`{`
17			`abort ();`
18			`}`
19			`return 0;`
20			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [treelang/] [execute/] [initial.tree] - Blame information for rev 867