Ignore:
File:
1 edited

Legend:

Unmodified
Added
Removed
  • tests/array-container/array-basic.cfa

    r1d71208 rb9dae14c  
    6161forall( [Nw], [Nx], [Ny], [Nz] )
    6262void fillHelloData( array( float, Nw, Nx, Ny, Nz ) & wxyz ) {
    63     for (w; Nw)
    64     for (x; Nx)
    65     for (y; Ny)
    66     for (z; Nz)
     63    for (w; z(Nw))
     64    for (x; z(Nx))
     65    for (y; z(Ny))
     66    for (z; z(Nz))
    6767        wxyz[w][x][y][z] = getMagicNumber(w, x, y, z);
    6868}
    6969
    70 forall( [N]
     70forall( [Zn]
    7171      , S & | sized(S)
    7272      )
    73 float total1d_low( arpk(N, S, float, float ) & a ) {
     73float total1d_low( arpk(Zn, S, float, float ) & a ) {
    7474    float total = 0.0f;
    75     for (i; N)
     75    for (i; z(Zn))
    7676        total += a[i];
    7777    return total;
     
    9898
    9999    expect = 0;
    100     for (i; Nw)
     100    for (i; z(Nw))
    101101        expect += getMagicNumber( i, slice_ix, slice_ix, slice_ix );
    102102    printf("expect Ws             = %f\n", expect);
     
    105105    printf("result Ws [][][][] lo = %f\n", result);
    106106
    107     result = total1d_low( wxyz[all, slice_ix, slice_ix, slice_ix] );
     107    result = total1d_low( wxyz[[all, slice_ix, slice_ix, slice_ix]] );
    108108    printf("result Ws [,,,]    lo = %f\n", result);
    109109
     
    111111    printf("result Ws [][][][] hi = %f\n", result);
    112112
    113     result = total1d_hi( wxyz[all, slice_ix, slice_ix, slice_ix] );
     113    result = total1d_hi( wxyz[[all, slice_ix, slice_ix, slice_ix]] );
    114114    printf("result Ws [,,,]    hi = %f\n", result);
    115115
     
    117117
    118118    expect = 0;
    119     for (i; Nx)
     119    for (i; z(Nx))
    120120        expect += getMagicNumber( slice_ix, i, slice_ix, slice_ix );
    121121    printf("expect Xs             = %f\n", expect);
     
    124124    printf("result Xs [][][][] lo = %f\n", result);
    125125
    126     result = total1d_low( wxyz[slice_ix, all, slice_ix, slice_ix] );
     126    result = total1d_low( wxyz[[slice_ix, all, slice_ix, slice_ix]] );
    127127    printf("result Xs [,,,]    lo = %f\n", result);
    128128
     
    130130    printf("result Xs [][][][] hi = %f\n", result);
    131131
    132     result = total1d_hi( wxyz[slice_ix, all, slice_ix, slice_ix] );
     132    result = total1d_hi( wxyz[[slice_ix, all, slice_ix, slice_ix]] );
    133133    printf("result Xs [,,,]    hi = %f\n", result);
    134134
Note: See TracChangeset for help on using the changeset viewer.