source: tests/concurrent/barrier/generation.cfa @ 93b8cf4

//
// Cforall Version 1.0.0 Copyright (C) 2022 University of Waterloo
//
// The contents of this file are covered under the licence agreement in the
// file "LICENCE" distributed with Cforall.
//
// concurrent/barrier/generation.cfa -- simple test that validates barriers by printing
//                                      alphabetical generations
//
// Author           : Thierry Delisle
// Created On       : Thu Mar 31 16:43:45 2022
// Last Modified By :
// Last Modified On :
// Update Count     :
//


int NUM_THREADS = 9;
int NUM_LAPS = 53;

#include <concurrency/barrier.hfa>
#include <fstream.hfa>
#include <mutex_stmt.hfa>
#include <thread.hfa>

barrier bar = { NUM_THREADS };

thread Tester {};
void main( Tester & this ) {
        for(NUM_LAPS)
                for(c; 'A' ~= 'Z') {
                        yield(prng(this, 10));
                        mutex(sout) sout | c | nonl;
                        yield(prng(this, 10));
                        block(bar);
                }
}

int main() {
        processor p[4];
        {
                Tester testers[NUM_THREADS];
        }
        sout | nl;
}