gcc/testsuite/gfortran.dg/matmul_argument_types.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/36355
   4 ! Check MATMUL argument types:
   5 !
   6 !           numeric   logical   other
   7 ! numeric      1         2        3
   8 ! logical      2         1        3
   9 ! other        3         3        3
  10 !
  11 ! where
  12 !   1    ok
  13 !   2    argument type mismatch
  14 !   3    invalid argument types
  15 !
  16
  17   INTEGER :: a(2,2)
  18   LOGICAL :: b(2,2)
  19   CHARACTER :: c
  20
  21   a = MATMUL(a, a)            ! ok
  22   a = MATMUL(a, b)            ! { dg-error "must match" }
  23   a = MATMUL(a, c)            ! { dg-error "must be numeric or LOGICAL" }
  24
  25   b = MATMUL(b, a)            ! { dg-error "must match" }
  26   b = MATMUL(b, b)            ! ok
  27   b = MATMUL(b, c)            ! { dg-error "must be numeric or LOGICAL" }
  28
  29   c = MATMUL(c, a)            ! { dg-error "must be numeric or LOGICAL" }
  30   c = MATMUL(c, b)            ! { dg-error "must be numeric or LOGICAL" }
  31   c = MATMUL(c, c)            ! { dg-error "must be numeric or LOGICAL" }
  32 END