3 ! PR 60302: [4.9 Regression] ICE with c_f_pointer and android cross compiler
5 ! Contributed by Valery Weber <valeryweber@hotmail.com>
7 subroutine reshape_inplace_c2_c2 (new_shape
)
8 use, intrinsic :: iso_c_binding
10 integer :: new_shape(:)
11 complex, pointer :: ptr_x(:)
13 call c_f_pointer (loc_x
, ptr_x
, new_shape
)