[Bug fortran/31067] MINLOC should sometimes be inlined (gas_dyn is sooooo sloooow)

[jb at gcc dot gnu dot org]

------- Comment #17 from jb at gcc dot gnu dot org  2007-05-18 21:20 -------
Or even better (duh):

REAL :: DTEMP

DT = HUGE(1.0d0)
DO I = 1, NODES
    DTEMP = DX(I)/(ABS(VEL(I)+SOUND(I))
    IF (DTEMP < DT) THEN
        DT = DTEMP
    END IF
END DO


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=31067