http://gcc.gnu.org/bugzilla/show_bug.cgi?id=48602
--- Comment #15 from Thomas Henlich <thenlich at users dot sourceforge.net> 2011-04-16 17:45:05 UTC --- And maybe for performance improvement we should transform if ((m > 0.0 && m < 0.1 - 0.1 * r * rexp_d) || (rexp_d * (m + r) >= 1.0) ||\ ((m == 0.0) && !(compile_options.allow_std & GFC_STD_F2003)))\ to: if (m > 0.0 && ((m < 0.1 - 0.1 * r * rexp_d) || (rexp_d * (m + r) >= 1.0)) ||\ ((m == 0.0) && !(compile_options.allow_std & GFC_STD_F2003)))\ for m == 0.0 this avoids evaluation of (rexp_d * (m + r) >= 1.0)) which is then always false anyway.
