1! { dg-do compile }
2!
3! PR fortran/38536
4! Consecutive array and substring references rejected as C_LOC argument
5!
6! contributed by Scot Breitenfield <brtnfld@hdfgroup.org>
7
8  USE ISO_C_BINDING
9  TYPE test
10     CHARACTER(LEN=2), DIMENSION(1:2) :: c
11  END TYPE test
12  TYPE(test), TARGET :: chrScalar
13  TYPE(C_PTR) :: f_ptr
14
15  f_ptr = C_LOC(chrScalar%c(1)(1:1))
16  END
17