blob: 7f28c53f4656eeba921689e6067c273da7c0a37f [file] [log] [blame]
! { dg-do run }
MODULE fold_convert_loc_ice
IMPLICIT NONE
PRIVATE
TYPE, PUBLIC :: ta
PRIVATE
INTEGER :: a_comp
END TYPE ta
TYPE, PUBLIC :: tb
TYPE(ta), ALLOCATABLE :: b_comp
END TYPE tb
PUBLIC :: proc
CONTAINS
SUBROUTINE proc
TYPE(tb) :: b
b = tb(null())
if (allocated( b%b_comp )) STOP 1
END SUBROUTINE proc
END MODULE fold_convert_loc_ice
USE fold_convert_loc_ice
call proc()
END