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