gcc/testsuite/gfortran.dg/c_f_pointer_shape_tests_6.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 60302: [4.9 Regression] ICE with c_f_pointer and android cross compiler
   4 !
   5 ! Contributed by Valery Weber <valeryweber@hotmail.com>
   6
   7 subroutine reshape_inplace_c2_c2 (new_shape)
   8   use, intrinsic :: iso_c_binding
   9   implicit none
  10   integer :: new_shape(:)
  11   complex, pointer :: ptr_x(:)
  12   type(c_ptr) :: loc_x
  13   call c_f_pointer (loc_x, ptr_x, new_shape)
  14 end subroutine