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