gcc/testsuite/gfortran.dg/c_loc_tests_15.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 44925: [OOP] C_LOC with CLASS pointer
   4 !
   5 ! Contributed by Barron Bichon <barron.bichon@swri.org>
   6
   7   use iso_c_binding
   8
   9   type :: t
  10   end type t
  11
  12   type(c_ptr) :: tt_cptr
  13   class(t), pointer :: tt_fptr
  14   if (associated(tt_fptr)) tt_cptr = c_loc(tt_fptr)  ! { dg-error "shall not be polymorphic" }
  15
  16 end