Subversion Repositories openrisc

! { dg-do compile }

!

! PR fortran/37829

! PR fortran/45190

!

! Contributed by Mat Cross

!

! Fix derived-type loading with ISO_BIND_C's C_PTR/C_FUNPTR.

MODULE NAG_J_TYPES

  USE ISO_C_BINDING, ONLY : C_PTR

  IMPLICIT NONE

  TYPE                            :: NAG_IMAGE

     INTEGER                      :: WIDTH, HEIGHT, PXFMT, NCHAN

     TYPE (C_PTR)                 :: PIXELS

  END TYPE NAG_IMAGE

END MODULE NAG_J_TYPES

program cfpointerstress

  use nag_j_types

  use iso_c_binding

  implicit none

  type(nag_image),pointer :: img

  type(C_PTR)             :: ptr

  real, pointer           :: r

  allocate(r)

  allocate(img)

  r = 12

  ptr = c_loc(img)

  write(*,*) 'C_ASSOCIATED =', C_ASSOCIATED(ptr)

  call c_f_pointer(ptr, img)

  write(*,*) 'ASSOCIATED =', associated(img)

  deallocate(r)

end program cfpointerstress

! { dg-final { cleanup-modules "nag_j_types" } }