2 ! Tests the patch for PR26038 that used to ICE in gfc_trans_allocate
3 ! for the want of a string_length to pass to the library.
4 ! Contributed by hjl@lucon.org && Erik Edelmann <eedelmanncc.gnu.org>
14 allocate(self
) ! Used to ICE here
25 character(5), pointer :: p
26 character(10), pointer :: q