tree-optimization/113385 - wrong loop father with early exit vectorization

[official-gcc.git] / gcc / testsuite / gfortran.dg / pr95089.f90

! { dg-do compile }
! { dg-options "-fcoarray=lib" }
!
! PR fortran/95089 - ICE in gfc_get_derived_type, at fortran/trans-types.c:2843

module m23456789012345678901234567890123456789012345678901234567890123
  type t23456789012345678901234567890123456789012345678901234567890123
     type (t23456789012345678901234567890123456789012345678901234567890123), &
          pointer :: z23456789012345678901234567890123456789012345678901234567890123
  end type t23456789012345678901234567890123456789012345678901234567890123
end