gcc/testsuite/gfortran.dg/pr36286.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-O1 -ftree-loop-linear" }
   3 ! PR tree-optimization/36286
   4
   5 program test_count
   6     integer, dimension(2,3) :: a, b
   7     a = reshape( (/ 1, 3, 5, 2, 4, 6 /), (/ 2, 3 /))
   8     b = reshape( (/ 0, 3, 5, 7, 4, 8 /), (/ 2, 3 /))
   9     print '(3l6)', a.ne.b
  10     print *, a(1,:).ne.b(1,:)
  11     print *, a(2,:).ne.b(2,:)
  12     print *, count(a.ne.b)
  13 end program test_count
  14