source: src/Tests/Scope.c @ f678663e

ADTaaron-thesisarm-ehast-experimentalcleanup-dtorsctordeferred_resndemanglerenumforall-pointer-decaygc_noraiijacob/cs343-translationjenkins-sandboxmemorynew-astnew-ast-unique-exprnew-envno_listpersistent-indexerpthread-emulationqualifiedEnumresolv-newstringwith_gc
Last change on this file since f678663e was b1d6dd5, checked in by Peter A. Buhr <pabuhr@…>, 9 years ago

fix parsing error for EOF message, change cfa-ccp -x flag to -v, regression testing third attempt: consolidate example programs

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