1! { dg-do run }
2! PR 22607: PURE/ELEMENTAL return-by-reference functions
3program main
4  implicit none
5  character(2), dimension(2) :: a, b
6  a = 'ok'
7  b = fun(a)
8  if (.not.all(b == 'ok')) STOP 1
9contains
10  elemental function fun(a)
11    character(*), intent(in) :: a
12    character(len(a)) :: fun
13    fun = a
14  end function fun
15end program main
16