4 ! Check that a dummy-argument array with non-restricted subscript is
5 ! rejected and some more reference-checks.
9 CALL test (5, (/ 1, 2, 3, 4, 5, 6, 7, 8, 9 /), "0123456789" )
13 SUBROUTINE test (n
, arr
, str
)
16 CHARACTER(len
=10) :: str
19 INTEGER :: ok1(arr(n
)), ok2(LEN_TRIM (str(3:n
)))
20 INTEGER :: ok3(LEN_TRIM("hello, world!"(2:n
)))
21 INTEGER :: wrong1(arr(i
)) ! { dg-error "'i' cannot appear" }
22 INTEGER :: wrong2(LEN_TRIM (str(i
:n
))) ! { dg-error "'i' cannot appear" }
23 INTEGER :: wrong3(LEN_TRIM ("hello, world!"(i
:n
))) ! { dg-error "'i' cannot appear" }