source: tests/random.cfa @ 474d610

ADTarm-ehast-experimentalenumforall-pointer-decayjacob/cs343-translationnew-ast-unique-exprpthread-emulationqualifiedEnum
Last change on this file since 474d610 was 200fcb3, checked in by Peter A. Buhr <pabuhr@…>, 5 years ago

add auto newline to sout, change endl to nl

  • Property mode set to 100644
File size: 1.6 KB
RevLine 
[73abe95]1//
[ed0e67a]2// Cforall Version 1.0.0 Copyright (C) 2016 University of Waterloo
3//
4// The contents of this file are covered under the licence agreement in the
5// file "LICENCE" distributed with Cforall.
[73abe95]6//
[dc8511c]7// random.cfa --
[73abe95]8//
[ed0e67a]9// Author           : Peter A. Buhr
10// Created On       : Tue Jul  5 21:29:30 2016
11// Last Modified By : Peter A. Buhr
[200fcb3]12// Last Modified On : Tue Dec  4 21:46:25 2018
13// Update Count     : 22
[73abe95]14//
[5721a6d]15
[73abe95]16#include <fstream.hfa>
[200fcb3]17#include <stdlib.hfa>                                                                   // random
[ed0e67a]18#include <unistd.h>                                                                             // getpid
[5721a6d]19
20int main() {
[54aba8d]21        // srandom( getpid() );                                                         // set random seed
22        srandom( 1003 );                                                                        // fixed seed for repeatable tests
[5721a6d]23
24        // test polymorphic calls to random and stream
[6c7b1e7]25        char c = random();
[200fcb3]26        sout | c;
[e672372]27        c = random( 'A' );
[200fcb3]28        sout | c;
[e672372]29        c = random( 'A', 'Z' );
[200fcb3]30        sout | c;
[e672372]31
[6c7b1e7]32        int i = random();
[200fcb3]33    sout | i;
[e672372]34        i = random( 10 );
[200fcb3]35    sout | i;
[e672372]36        i = random( -10, 20 );
[200fcb3]37    sout | i;
[e672372]38
[6c7b1e7]39        unsigned int ui = random();
[200fcb3]40    sout | ui;
[e672372]41        ui = random( 10u );
[200fcb3]42    sout | ui;
[e672372]43        ui = random( 10u, 20u );
[200fcb3]44    sout | ui;
[e672372]45
[6c7b1e7]46        long int li = random();
[200fcb3]47    sout | li;
[e672372]48        li = random( 10l );
[200fcb3]49    sout | li;
[e672372]50        li = random( -10l, 20l );
[200fcb3]51    sout | li;
[e672372]52
[6c7b1e7]53        unsigned long int uli = random();
[200fcb3]54    sout | uli;
[e672372]55        uli = random( 10ul );
[200fcb3]56    sout | uli;
[e672372]57        uli = random( 10ul, 20ul );
[200fcb3]58    sout | uli;
[e672372]59
[6c7b1e7]60    float f = random();
[200fcb3]61    sout | f;
[e672372]62
[6c7b1e7]63    double d = random();
[200fcb3]64    sout | d;
[e672372]65
[6c7b1e7]66    float _Complex fc = random();
[200fcb3]67    sout | fc;
[e672372]68
[6c7b1e7]69    double _Complex dc = random();
[200fcb3]70    sout | dc;
[e672372]71
[6c7b1e7]72    long double _Complex ldc = random();
[200fcb3]73    sout | ldc;
[5721a6d]74} // main
75
76// Local Variables: //
77// tab-width: 4 //
[dc8511c]78// compile-command: "cfa random.cfa" //
[5721a6d]79// End: //
Note: See TracBrowser for help on using the repository browser.