[Bug fortran/38115] unneeded temp

[jv244 at cam dot ac dot uk]

------- Comment #1 from jv244 at cam dot ac dot uk  2008-11-14 09:07 -------
I guess this one is similar enough to put here as well:

SUBROUTINE S1(a,i,j,k,m)
   INTEGER :: a(3,6)
   write(6,*) ALL(a(1:3,m).EQ.(/i,j,k/))
END


-- 


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