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 "shall not be polymorphic" }