source: tests/minmax.cfa @ ab8c6a6

ADTarm-ehast-experimentalenumforall-pointer-decayjacob/cs343-translationnew-ast-unique-exprpthread-emulationqualifiedEnum
Last change on this file since ab8c6a6 was 3b4750d, checked in by Peter A. Buhr <pabuhr@…>, 4 years ago

add negative test for signed integer min/max

  • Property mode set to 100644
File size: 2.2 KB
Line 
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// minmax.cfa --
8//
9// Author           : Peter A. Buhr
10// Created On       : Wed May 27 17:56:53 2015
11// Last Modified By : Peter A. Buhr
12// Last Modified On : Sat Aug 15 08:28:01 2020
13// Update Count     : 54
14//
15
16#include <fstream.hfa>
17#include <stdlib.hfa>                                                                           // min, max
18
19int main( void ) {
20        // char does not have less or greater than.
21        int ?<?( char op1, char op2 ) { return (int)op1 < (int)op2; }
22        int ?>?( char op1, char op2 ) { return (int)op1 > (int)op2; }
23
24        sout | "char\t\t\t"                                     | 'z' | ' ' | 'a' | "\tmin " | min( 'z', 'a' );
25        sout | "signed int\t\t"                         | 4 | -3 | "\tmin" | min( 4, -3 );
26        sout | "unsigned int\t\t"                       | 4u | 3u | "\tmin" | min( 4u, 3u );
27        sout | "signed long int\t\t"            | 4l | -3l | "\tmin" | min( 4l, -3l );
28        sout | "unsigned long int\t"            | 4ul | 3ul | "\tmin" | min( 4ul, 3ul );
29        sout | "signed long long int\t"         | 4ll | -3ll | "\tmin" | min( 4ll, -3ll );
30        sout | "unsigned long long int\t"       | 4ull | 3ull | "\tmin" | min( 4ull, 3ull );
31        sout | "float\t\t\t"                            | 4.0f | 3.1f | "\tmin" | min( 4.0f, 3.1f );
32        sout | "double\t\t\t"                           | 4.0 | 3.1 | "\tmin" | min( 4.0, 3.1 );
33        sout | "long double\t\t"                        | 4.0l | 3.1l | "\tmin" | min( 4.0l, 3.1l );
34
35        sout | nl;
36
37        sout | "char\t\t\t"                                     | 'z' | ' ' | 'a' | "\tmax " | max( 'z', 'a' );
38        sout | "signed int\t\t"                         | 4 | -3 | "\tmax" | max( 4, -3 );
39        sout | "unsigned int\t\t"                       | 4u | 3u | "\tmax" | max( 4u, 3u );
40        sout | "signed long int\t\t"            | 4l | -3l | "\tmax" | max( 4l, -3l );
41        sout | "unsigned long int\t"            | 4ul | 3ul | "\tmax" | max( 4ul, 3ul );
42        sout | "signed long long int\t"         | 4ll | -3ll | "\tmax" | max( 4ll, -3ll );
43        sout | "unsigned long long int\t"       | 4ull | 3ull | "\tmax" | max( 4ull, 3ull );
44        sout | "float\t\t\t"                            | 4.0f | 3.1f | "\tmax" | max( 4.0f, 3.1f );
45        sout | "double\t\t\t"                           | 4.0 | 3.1 | "\tmax" | max( 4.0, 3.1 );
46        sout | "long double\t\t"                        | 4.0l | 3.1l | "\tmax" | max( 4.0l, 3.1l );
47} // main
48
49// Local Variables: //
50// tab-width: 4 //
51// compile-command: "cfa minmax.cfa" //
52// End: //
Note: See TracBrowser for help on using the repository browser.