[Bug fortran/53732] New: "mismatching comparison operand types" on compile

[minzastro at yandex dot ru]

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

             Bug #: 53732
           Summary: "mismatching comparison operand types" on compile
    Classification: Unclassified
           Product: gcc
           Version: 4.7.0
            Status: UNCONFIRMED
          Severity: major
          Priority: P3
         Component: fortran
        AssignedTo: unassig...@gcc.gnu.org
        ReportedBy: minzas...@yandex.ru


I have problems compiling my code on minGW gfortran 4.7.
This code does not compile:

program test
implicit none

real*8 arr(4, 4, 4, 4)

arr(:,:,:,:) = 1d0

arr(1, :, :, = sum(arr, dim=1, mask=(arr(:,:,:,:) > 0d0))

end program test

$gfortran test.f90
I get:
test.f90:1:0: ошибка: mismatching comparison operand types
real(kind=8)
integer(kind=4)
if (D.1895 > 0) goto <D.1896>; else goto <D.1897>;

(gfortran --version:
GNU Fortran (GCC) 4.7.0
Copyright (C) 2012 Free Software Foundation, Inc.)

There was also a report of the same problem with Mac OS X, version 10.7.4
(Lion)
and GNU Fortran (GCC) 4.8.0 20120603 (experimental)
Both Linux gfortran 4.7 & windows g95 are working ok.