source: src/examples/min.c@ 0f889a77

//
// 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.
//
// min.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:23:19 2015
// Update Count     : 2
//

extern "C" {
        int printf( const char *, ... );
//#include <stdio.h>
}

forall( type T | { int ?<?( T, T ); } )
T min( const T t1, const T t2 ) {
        return t1 < t2 ? t1 : t2;
}

int main() {
        char c;
//      c = min( 'z', 'a' );
//      printf( "minimum %d\n", c );
        int i;
        i = min( 4, 3 );
        printf( "minimum %d\n", min( 4, 3 ) );
        float f;
        f = min( 4.0, 3.1 );
        printf( "minimum %g\n", f );
        double d;
        d = min( 4.0, 3.2 );
        printf( "minimum %g\n", d );
}

// Local Variables: //
// tab-width: 4 //
// compile-command: "cfa min.c" //
// End: //