1! { dg-do compile } 2! 3! PR 54667: [OOP] gimplification failure with c_f_pointer 4! 5! Contributed by Andrew Benson <abensonca@gmail.com> 6 7use, intrinsic :: ISO_C_Binding 8type :: nc 9end type 10type(c_ptr) :: cSelf 11class(nc), pointer :: self 12call c_f_pointer(cSelf, self) ! { dg-error "shall not be polymorphic" } 13end 14