// // Cforall Version 1.0.0 Copyright (C) 2015 University of Waterloo // // The contents of this file are covered under the licence agreement in the // file "LICENCE" distributed with Cforall. // // identity.c -- // // Author : Richard C. Bilson // Created On : Wed May 27 17:56:53 2015 // Last Modified By : Peter A. Buhr // Last Modified On : Wed May 27 18:16:30 2015 // Update Count : 2 // #include "fstream.h" forall( type T ) T identity( T t ) { return t; } int main() { ofstream *sout = ofstream_stdout(); char c = 'a'; c = identity( c ); sout << c << ' ' << identity( c ) << '\n'; int i = 5; i = identity( i ); sout << i << ' ' << identity( i ) << '\n'; double d = 3.2; d = identity( d ); sout << d << ' ' << identity( d ) << '\n'; } // Local Variables: // // tab-width: 4 // // compile-command: "cfa identity.c fstream.o iostream.o" // // End: //