1! { dg-do compile }
2! { dg-options "-Ofast -fdump-tree-optimized-raw" }
3
4      SUBROUTINE F(N,X,Y,Z,A,B)
5          DIMENSION X(4,4), Y(4), Z(4)
6          REAL, INTENT(INOUT) :: A, B
7
8          A = 1 / (Y(N)*Y(N))
9
10          DO I = 1, NV
11          X(I, I) = 1 + X(I, I)
12          ENDDO
13
14          Z(1) =  B / Y(N)
15          Z(2) =  N / Y(N)
16          RETURN
17      END
18
19! { dg-final { scan-tree-dump-times "rdiv_expr" 1 "optimized" } }
20