3 ! { dg-options "-funswitch-loops -fbounds-check" }
8 REAL(KIND
=4), DIMENSION(:,:), POINTER :: A
9 REAL(KIND
=8), DIMENSION(:,:), POINTER :: B
12 SUBROUTINE FOO(M
,X
,Y
,T
)
13 TYPE(TT
), POINTER :: M
14 INTEGER, INTENT(IN
) :: Y
, X
17 REAL(KIND
= 4), DIMENSION(:,:), POINTER :: P
18 REAL(KIND
= 8), DIMENSION(:,:), POINTER :: Q
35 TYPE(TT
), POINTER :: Q
36 INTEGER, PARAMETER :: N
=17
41 CALL FOO (Q
,N
,N
,.FALSE
.)