gcc/testsuite/gfortran.dg/dot_product_1.f03

   1 ! { dg-do run }
   2 ! Transformational intrinsic DOT_PRODUCT as initialization expression.
   3
   4   INTEGER, PARAMETER :: n = 10
   5   INTEGER, PARAMETER :: a(n) = 1
   6   INTEGER, PARAMETER :: p = DOT_PRODUCT(a, a)
   7   INTEGER, PARAMETER :: e = DOT_PRODUCT(SHAPE(1), SHAPE(1))
   8
   9   IF (p /= n) CALL abort()
  10   IF (e /= 0) CALL abort()
  11 END