This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Re: [patch, fortran] Fix PR 44693


Hi Tobias,

> How about using only the first part of your patch - and keep the old
> and
> simple
>   rank = array->rank;

Actually, you are correct.  I was led down the garden path by a failure
in minmaxloc_4.f90, which contains


PROGRAM TST
  IMPLICIT NONE
  REAL :: A(1,3)
  REAL :: B(3,1)

[...]

  if (minloc(sum(b(1:3,:),2),2) .ne. 1) call abort()
  if (maxloc(sum(b(1:3,:),2),2) .ne. 3) call abort()

which is wrong.

Thanks for catching the error!

I will commit a correct version shortly.

	Thomas



Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]