gcc/testsuite/gfortran.dg/c_loc_tests_13.f90

   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