! { dg-do compile }
! PR 87673 - used to cause errors about non-pure functions.

module x
  implicit none
contains
  pure function foo() result(res)
    character(len=:), allocatable :: res
    allocate (character(bar()) :: res)
  end function foo
  pure integer function bar()
    bar = 1
  end function bar
end module x