blob: 305136cd6594d13611f221fa0e47fc5660e03d42 [file] [log] [blame]
! { dg-do compile }
! Tests the patch for PR26038 that used to ICE in gfc_trans_allocate
! for the want of a string_length to pass to the library.
! Contributed by hjl@lucon.org && Erik Edelmann <eedelmanncc.gnu.org>
module moo
contains
subroutine foo(self)
character(*) :: self
pointer :: self
nullify(self)
allocate(self) ! Used to ICE here
print *, len(self)
end subroutine
end module moo
program hum
use moo
character(5), pointer :: p
character(10), pointer :: q
call foo(p)
call foo(q)
end program hum