Subversion Repositories openrisc_me

! { dg-do compile }

! Test fix for pr38763, where NULL was not being encoded.

!

! Contributed by Steve Kargl  from a

! posting by James van Buskirk on clf.

!

program sizetest

   use ISO_C_BINDING

   implicit none

   integer, parameter :: ik1 = selected_int_kind(2)

   TYPE vehicle_t1

      INTEGER(C_INT), DIMENSION(:), ALLOCATABLE :: sensors

   END TYPE vehicle_t1

   type(vehicle_t1) gfortran_bug_workaround

   integer i

   i = size(transfer(vehicle_t1(NULL()),[0_ik1]))

   print *, i

   i = size(transfer(vehicle_t1([i]),[0_ik1]))

   print *, i

end program sizetest