! { dg-do run } | |
! PR 22607: PURE return-by-reference functions | |
program main | |
implicit none | |
integer, dimension(2) :: b | |
b = fun(size(b)) | |
if (b(1) /= 1 .or. b(2) /= 2) call abort() | |
contains | |
pure function fun(n) | |
integer, intent(in) :: n | |
integer :: fun(n) | |
integer :: i | |
do i = 1, n | |
fun(i) = i | |
end do | |
end function fun | |
end program main |