| ! { dg-do run } | |
| ! PR 22607: PURE/ELEMENTAL return-by-reference functions | |
| program main | |
| implicit none | |
| character(2), dimension(2) :: a, b | |
| a = 'ok' | |
| b = fun(a) | |
| if (.not.all(b == 'ok')) STOP 1 | |
| contains | |
| elemental function fun(a) | |
| character(*), intent(in) :: a | |
| character(len(a)) :: fun | |
| fun = a | |
| end function fun | |
| end program main |