1! { dg-do compile } 2! Ensure that the user cannot call the structure constructor for one of 3! the iso_c_binding derived types. 4! 5! PR fortran/33760 6! 7program main 8 use ISO_C_BINDING 9 implicit none 10 integer(C_INTPTR_T) p 11 type(C_PTR) cptr 12 p = 0 13 cptr = C_PTR(p+1) ! { dg-error "is a PRIVATE component of 'c_ptr'" } 14 cptr = C_PTR(1) ! { dg-error "is a PRIVATE component of 'c_ptr'" } 15end program main 16