3 ! PR 44925: [OOP] C_LOC with CLASS pointer
5 ! Contributed by Barron Bichon <barron.bichon@swri.org>
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 "must not be polymorphic" }