20 lines
747 B
Fortran
20 lines
747 B
Fortran
! { dg-do compile }
|
|
! verify that the compiler catches the error in the call to c_f_pointer
|
|
! because it is missing the required SHAPE parameter. the SHAPE parameter
|
|
! is optional, in general, but must exist if given a fortran pointer
|
|
! to a non-zero rank object. --Rickett, 09.26.06
|
|
module c_f_pointer_shape_test
|
|
contains
|
|
subroutine test_0(myAssumedArray, cPtr)
|
|
use, intrinsic :: iso_c_binding
|
|
integer, dimension(*) :: myAssumedArray
|
|
integer, dimension(:), pointer :: myArrayPtr
|
|
integer, dimension(1:2), target :: myArray
|
|
type(c_ptr), value :: cPtr
|
|
|
|
myArrayPtr => myArray
|
|
call c_f_pointer(cPtr, myArrayPtr) ! { dg-error "Missing SHAPE parameter" }
|
|
end subroutine test_0
|
|
end module c_f_pointer_shape_test
|
|
|