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() 11END 12