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