1! { dg-do run } 2 3MODULE fold_convert_loc_ice 4 IMPLICIT NONE 5 PRIVATE 6 7 TYPE, PUBLIC :: ta 8 PRIVATE 9 INTEGER :: a_comp 10 END TYPE ta 11 12 TYPE, PUBLIC :: tb 13 TYPE(ta), ALLOCATABLE :: b_comp 14 END TYPE tb 15 16 PUBLIC :: proc 17CONTAINS 18 SUBROUTINE proc 19 TYPE(tb) :: b 20 21 b = tb(null()) 22 if (allocated( b%b_comp )) STOP 1 23 END SUBROUTINE proc 24END MODULE fold_convert_loc_ice 25 26 USE fold_convert_loc_ice 27 28 call proc() 29END 30 31