1! { dg-do compile } 2! Test fix for pr38763, where NULL was not being encoded. 3! 4! Contributed by Steve Kargl <kargl@gcc.gnu.org> from a 5! posting by James van Buskirk on clf. 6! 7program sizetest 8 use ISO_C_BINDING 9 implicit none 10 integer, parameter :: ik1 = selected_int_kind(2) 11 TYPE vehicle_t1 12 INTEGER(C_INT), DIMENSION(:), ALLOCATABLE :: sensors 13 END TYPE vehicle_t1 14 type(vehicle_t1) gfortran_bug_workaround 15 integer i 16 i = size(transfer(vehicle_t1(NULL()),[0_ik1])) 17 print *, i 18 i = size(transfer(vehicle_t1([i]),[0_ik1])) 19 print *, i 20end program sizetest 21