gcc/testsuite/gfortran.dg/matmul_5.f90

   1 ! { dg-do run }
   2 ! { dg-shouldfail "dimension of array B incorrect in MATMUL intrinsic" }
   3 ! { dg-options "-finline-matmul-limit=0" }
   4 program main
   5   real, dimension(:,:), allocatable :: a
   6   real, dimension(:), allocatable :: b
   7   allocate (a(2,2), b(3))
   8   call random_number(a)
   9   call random_number(b)
  10   print *,matmul(a,b)
  11 end program main
  12 ! { dg-output "Fortran runtime error: dimension of array B incorrect in MATMUL intrinsic.*" }