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