gcc/testsuite/gfortran.dg/intrinsic_argument_conformance_1.f90

   1 ! { dg-do compile }
   2 program main
   3   real :: av(2), bv(4)
   4   real :: a(2,2)
   5   logical :: lo(3,2)
   6   print *,dot_product(av, bv) ! { dg-error "different shape" }
   7   print *,pack(a, lo) ! { dg-error "different shape" }
   8   print *,merge(av, bv, lo(1,:)) ! { dg-error "different shape" }
   9   print *,matmul(bv,a) ! { dg-error "different shape" }
  10 end program main