Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/inline_sum_4.f90 @ 132:d34655255c78

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
update gcc-8.2
author mir3636
date Thu, 25 Oct 2018 10:21:07 +0900
parents 04ced10e8804
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 ! { dg-do compile }
kono
parents:
diff changeset
2 !
kono
parents:
diff changeset
3 ! PR fortran/53732
kono
parents:
diff changeset
4 ! this was leading to an internal "mismatching comparison operand types"
kono
parents:
diff changeset
5 ! error.
kono
parents:
diff changeset
6 !
kono
parents:
diff changeset
7 ! Original testcase by minzastro <minzastro@googlemail.com>
kono
parents:
diff changeset
8 ! Fixed by Dominique Dhumieres <dominiq@lps.ens.fr>
kono
parents:
diff changeset
9
kono
parents:
diff changeset
10 program test
kono
parents:
diff changeset
11 implicit none
kono
parents:
diff changeset
12
kono
parents:
diff changeset
13 real(8) arr(4,4,4,4)
kono
parents:
diff changeset
14
kono
parents:
diff changeset
15 arr(:,:,:,:) = 1d0
kono
parents:
diff changeset
16
kono
parents:
diff changeset
17 arr(1,:,:,:) = sum(arr, dim=1, mask=(arr(:,:,:,:) > 0d0))
kono
parents:
diff changeset
18
kono
parents:
diff changeset
19 end program test