[Bug fortran/38114] unneeded temp

[jv244 at cam dot ac dot uk]

------- Comment #2 from jv244 at cam dot ac dot uk  2008-11-19 13:08 -------
(In reply to comment #1)
> SUBROUTINE S(b,i,j)
> INTEGER, DIMENSION(:) :: b
> integer res(1)
> INTEGER :: i,j
> res = MINLOC(b(i:j))
> END SUBROUTINE S

right.. the 'orginal' testcase was. Actually, these temps are all derived for
CP2K sources.

SUBROUTINE S(b,i,j)
INTEGER, DIMENSION(:) :: b
integer res
INTEGER :: i,j
res = SUM(MINLOC(b(i:j)))
END SUBROUTINE S


-- 


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