5 ! Memory leak
(s
) while resolving forall constructs
.
7 ! Contributed by Dick Hendrickson
<dick
.hendrickson@gmail
.com
>
10 INTEGER,PARAMETER,PUBLIC
:: I1_KV
= KIND
(1)
11 INTEGER,PARAMETER,PUBLIC
:: R1_KV
= KIND
(1.0)
12 INTEGER, PRIVATE
:: J1
,J2
13 INTEGER,PARAMETER,PUBLIC
:: S1
= 10, S2
= 9
15 SUBROUTINE SA0136
(RDA
,IDA
,BDA
)
17 INTEGER(I1_KV
) IDA
(S1
,S2
)
18 INTEGER(I1_KV
) ICA
(S1
,S2
)
20 ! T E S T S T A T E M E N T S
22 RDA
(J1
) = RCA
(J1
) + 1.0_R1_KV
24 IDA
(J1
,J2
) = ICA
(J1
,J2
) + 1
27 IDA
(J1
,J2
) = ICA
(J1
,J2
)
33 IDA
(J1
,J2
) = ICA
(J1
,J2
)
38 ! { dg
-final
{ cleanup
-modules
"tests" } }