source: src/Tests/Quad.c @ e04ef3a

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

update keywords in test files
  • Property mode set to 100644
File size: 288 bytes
RevLine 
[a65d92e]1int ?=?( int *, int );
[51b7345]2int ?*?( int, int );
3
[55ba733]4forall( otype T | { T ?*?( T, T ); } )
[a65d92e]5T square( T t ) {
6        return t * t;
[51b7345]7}
8
[55ba733]9forall( otype U | { U square( U ); } )
[a65d92e]10U quad( U u ) {
11        return square( square( u ) );
[51b7345]12}
13
[a65d92e]14void f() {
15        quad( 7 );
[51b7345]16}
[a65d92e]17
18// Local Variables: //
19// tab-width: 4 //
20// End: //
Note: See TracBrowser for help on using the repository browser.