4 ! Accept as argument to C_LOC a subcomponent accessed through a pointer.
10 INTEGER, DIMENSION(5) :: b
14 TYPE(test3), DIMENSION(:), POINTER :: a
18 TYPE(test2), DIMENSION(2) :: c
21 TYPE(test) :: chrScalar
23 TYPE(test3), TARGET :: d(3)
27 f_ptr = C_LOC(chrScalar%c(1)%a(1)%b(1))