Subversion Repositories openrisc

! { dg-do compile }

! Ensure that the user cannot call the structure constructor for one of

! the iso_c_binding derived types.

!

! PR fortran/33760

!

program main

   use ISO_C_BINDING

   implicit none

   integer(C_INTPTR_T) p

   type(C_PTR) cptr

   p = 0

   cptr = C_PTR(p+1) ! { dg-error "Components of structure constructor" }

   cptr = C_PTR(1) ! { dg-error "Components of structure constructor" }

end program main