------- 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