gcc/testsuite/gfortran.dg/graphite/pr36286.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14

! { dg-do compile }
! { dg-options "-O1 -ftree-loop-linear" }
! PR tree-optimization/36286

program test_count
    integer, dimension(2,3) :: a, b
    a = reshape( (/ 1, 3, 5, 2, 4, 6 /), (/ 2, 3 /))
    b = reshape( (/ 0, 3, 5, 7, 4, 8 /), (/ 2, 3 /))
    print '(3l6)', a.ne.b
    print *, a(1,:).ne.b(1,:)
    print *, a(2,:).ne.b(2,:)
    print *, count(a.ne.b)
end program test_count