1! { dg-do compile } 2! 3! Test the fix for PR56386 4! 5! Contributed by Vladimir Fuka <vladimir.fuka@gmail.com> 6! 7subroutine CustomSolidBodies 8 implicit none 9 10 type inner 11 real :: elev 12 end type 13 14 type :: outer 15 type(inner),dimension(0) :: PrPoints 16 end type 17 18 type(outer) :: SB 19 20 associate (Prter=>SB%PrPoints) 21 PrTer%elev=0 ! ICE here 22 end associate 23end subroutine CustomSolidBodies 24