1! { dg-do compile }
2! Verify that the compiler catches the error in the call to c_f_pointer
3! because it is missing the required SHAPE argument. The SHAPE argument
4! is optional, in general, but must exist if given a Fortran pointer
5! to a non-zero rank object.  --Rickett, 09.26.06
6module c_f_pointer_shape_test
7contains
8  subroutine test_0(myAssumedArray, cPtr)
9    use, intrinsic :: iso_c_binding
10    integer, dimension(*) :: myAssumedArray
11    integer, dimension(:), pointer :: myArrayPtr
12    integer, dimension(1:2), target :: myArray
13    type(c_ptr), value :: cPtr
14
15    myArrayPtr => myArray
16    call c_f_pointer(cPtr, myArrayPtr) ! { dg-error "Expected SHAPE argument to C_F_POINTER with array FPTR" }
17  end subroutine test_0
18end module c_f_pointer_shape_test
19