1! { dg-do compile } 2! 3! PR fortran/53732 4! this was leading to an internal "mismatching comparison operand types" 5! error. 6! 7! Original testcase by minzastro <minzastro@googlemail.com> 8! Fixed by Dominique Dhumieres <dominiq@lps.ens.fr> 9 10program test 11implicit none 12 13real(8) arr(4,4,4,4) 14 15arr(:,:,:,:) = 1d0 16 17arr(1,:,:,:) = sum(arr, dim=1, mask=(arr(:,:,:,:) > 0d0)) 18 19end program test 20