[Bug fortran/29397] New: Problem with MAXLOC where mask involves a parameter array

[fxcoudert at gcc dot gnu dot org]

$ cat a8.f90
INTEGER :: K(3)=1
INTEGER, PARAMETER :: J(3)=2
write(6,*) MAXLOC(K,J<1)
END
$ gfortran a8.f90 && ./a.out
a.out: ../../../trunk/libgfortran/generated/maxloc0_4_i4.c:216: mmaxloc0_4_i4:
Assertion `((mask)->dtype >> 6) == 8' failed.
zsh: abort      ./a.out

If the PARAMETER


-- 
           Summary: Problem with MAXLOC where mask involves a parameter
                    array
           Product: gcc
           Version: 4.2.0
            Status: UNCONFIRMED
          Keywords: wrong-code
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: fxcoudert at gcc dot gnu dot org


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