gcc/testsuite/gfortran.dg/associate_44.f90

   1 ! { dg-do compile }
   2 !
   3 ! Test the fix for PR56386
   4 !
   5 ! Contributed by Vladimir Fuka  <vladimir.fuka@gmail.com>
   6 !
   7 subroutine  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
  23 end subroutine  CustomSolidBodies