Changeset 86bd7c1f for src/examples/quad.c
- Timestamp:
- May 27, 2015, 8:33:19 PM (10 years ago)
- Branches:
- ADT, aaron-thesis, arm-eh, ast-experimental, cleanup-dtors, ctor, deferred_resn, demangler, enum, forall-pointer-decay, gc_noraii, jacob/cs343-translation, jenkins-sandbox, master, memory, new-ast, new-ast-unique-expr, new-env, no_list, persistent-indexer, pthread-emulation, qualifiedEnum, resolv-new, string, with_gc
- Children:
- 00cc023
- Parents:
- 52ac3b4
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/examples/quad.c
r52ac3b4 r86bd7c1f 1 // 2 // Cforall Version 1.0.0 Copyright (C) 2015 University of Waterloo 3 // 4 // The contents of this file are covered under the licence agreement in the 5 // file "LICENCE" distributed with Cforall. 6 // 7 // quad.c -- 8 // 9 // Author : Richard C. Bilson 10 // Created On : Wed May 27 17:56:53 2015 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Wed May 27 18:26:36 2015 13 // Update Count : 2 14 // 15 1 16 extern "C" { 2 17 #include <stdio.h> 3 18 } 4 19 5 20 forall( type T | { T ?*?( T, T ); } ) 6 21 T square( T t ) { 7 22 return t * t; 8 23 } 9 24 10 25 forall( type U | { U square( U ); } ) 11 26 U quad( U u ) { 12 27 return square( square( u ) ); 13 28 } 14 29 15 30 int main() { 16 17 31 int N = 2; 32 printf( "result of quad of %d is %d\n", N, quad( N ) ); 18 33 } 19 34 20 35 // Local Variables: // 21 // compile-command: "../../bin/cfa quad.c" // 36 // tab-width: 4 // 37 // compile-command: "cfa quad.c" // 22 38 // End: //
Note: See TracChangeset
for help on using the changeset viewer.