[Libre-soc-bugs] [Bug 676] FORTRAN MAXLOC SVP64 example

[bugzilla-daemon at libre-soc.org]

https://bugs.libre-soc.org/show_bug.cgi?id=676

--- Comment #2 from Luke Kenneth Casson Leighton <lkcl at lkcl.net> ---
int m2(int * const restrict a, int n) 
{ 
    int m, nm; 
    int i; 

    m = INT_MIN; 
    nm = -1; 
    i=0; 
    while (i<n) { 
        while (i<n && a[i]<=m) 
            i++; 
        if (a[i] > m) { 
            m = a[i]; 
            nm = i; 
        } 
        i++; 
    } 
    return nm; 
}

-- 
You are receiving this mail because:
You are on the CC list for the bug.