http://gcc.gnu.org/bugzilla/show_bug.cgi?id=52275
--- Comment #5 from Dominique d'Humieres <dominiq at lps dot ens.fr> 2012-02-16 14:52:17 UTC --- The subroutine SPECTOP has been the cause of pr42181. The two variants in comment #22 behave the same way when compiled with '-O2 -floop-flatten', i.e., the variant with if (j.ne.k) d1(k,j) = fctr/(x(k)-x(j)) is miscompiled.