source: src/tests/scope.c@ a8615fd1

ADT aaron-thesis arm-eh ast-experimental cleanup-dtors deferred_resn demangler enum forall-pointer-decay jacob/cs343-translation jenkins-sandbox new-ast new-ast-unique-expr no_list persistent-indexer pthread-emulation qualifiedEnum
Last change on this file since a8615fd1 was e757af2, checked in by Thierry Delisle <tdelisle@…>, 9 years ago

renamed all tests to lower-case leading character

  • Property mode set to 100644
File size: 870 bytes
Line 
1int x;
2typedef double y;
3typedef float t;
4y z;
5//otype u = struct { int a; double b; };
6typedef struct { int a; double b; } u;
7int f( int y );
8y q;
9struct x { int x; };
10
11y w( y y, u v ) {
12// otype x | { x t(u); };
13 void ?{}(struct x *);
14 void ^?{}(struct x *);
15 extern struct x t( u );
16 u u = y;
17 struct x z = t(u);
18}
19
20y p;
21
22trait has_u( otype z ) {
23 z u(z);
24};
25
26forall( otype t | has_u( t ) )
27y q( t the_t ) {
28 t y = u( the_t );
29}
30
31t f( y p ) {
32 int y;
33 typedef char x;
34 {
35 x y;
36 typedef x z;
37 {
38 z x;
39 typedef z y;
40 y z = x;
41 }
42 z x = y;
43 }
44 x q = y;
45}
46
47void some_func() {}
48
49t g( void ) {
50 typedef char x;
51// try {
52 some_func();
53// } catch ( x x ) {
54// t y = x;
55// }
56 x z;
57}
58
59y q( i ) /* K&R style */
60 int i;
61{
62 switch ( i ) {
63 y q = i;
64 case 0:
65 return q;
66 default:
67 return i;
68 }
69}
70
71// Local Variables: //
72// tab-width: 4 //
73// End: //
Note: See TracBrowser for help on using the repository browser.