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