1! { dg-do compile }
2!
3! PR fortran/54263
4!
5use iso_c_binding
6type(c_ptr) :: cp
7integer, pointer :: p
8call c_f_pointer (cp, p, shape=[2]) ! { dg-error "Unexpected SHAPE argument at .1. to C_F_POINTER with scalar FPTR" }
9end
10