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

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

! { dg-do compile }
!
! Fix a regression introduced by the patch for PR70149.
!
    character (:), pointer :: ptr => NULL() ! The NULL () caused an ICE.
    character (6), target :: tgt = 'lmnopq'
    ptr => tgt
    print *, len (ptr), ptr
end