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