gcc/testsuite/gfortran.dg/c_f_pointer_tests_5.f90

   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
   7 use, intrinsic :: ISO_C_Binding
   8 type :: nc
   9 end type
  10 type(c_ptr) :: cSelf
  11 class(nc), pointer :: self
  12 call c_f_pointer(cSelf, self)  ! { dg-error "shall not be polymorphic" }
  13 end