Subversion Repositories openrisc

! { dg-do run }

!

! PR fortran/35983

! C_LOC expanded to a NULL_PTR expr if called from a structure constructor

!

! Contributed by François-Xavier Coudert

program main

   use ISO_C_BINDING

   implicit none

   type, bind(C) :: descr

      type(C_PTR) :: address

   end type descr

   type(descr) :: DD

   double precision, target :: buf(1)

   integer (C_INTPTR_T) :: i, j

   buf = (/ 0 /)

   DD = descr(c_loc(buf))

   i = transfer (DD%address, 0_c_intptr_t)

   j = transfer (c_loc(buf), 0_c_intptr_t)

   if (any((/ i,j /) == 0_c_intptr_t)) call abort

   if (i /= j) call abort

end program main