2 ! Test fix for pr38763, where NULL was not being encoded.
4 ! Contributed by Steve Kargl <kargl@gcc.gnu.org> from a
5 ! posting by James van Buskirk on clf.
10 integer, parameter :: ik1
= selected_int_kind(2)
12 INTEGER(C_INT
), DIMENSION(:), ALLOCATABLE
:: sensors
14 type(vehicle_t1
) gfortran_bug_workaround
16 i
= size(transfer(vehicle_t1(NULL()),[0_ik1
]))
18 i
= size(transfer(vehicle_t1([i
]),[0_ik1
]))