gcc/testsuite/gfortran.dg/product_sum_bounds_1.f90

   1 ! { dg-do compile }
   2 program main
   3   real, dimension(4,3) :: a
   4   real, dimension(2) :: b
   5   a = 21.
   6   b = product(a,dim=1) ! { dg-error "Different shape" }
   7   b = sum(a,dim=2) ! { dg-error "Different shape" }
   8 end program main