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