Subversion Repositories openrisc

! { dg-do compile }

! Tests the fix for PR32881, in which the initialization

! of 'p' generated an error because the pureness of 'bar'

! escaped.

!

! Contributed by Janne Blomqvist 

!

subroutine foo ()

  integer, pointer :: p => NULL()

contains

  pure function bar (a)

    integer, intent(in) :: a

    integer :: bar

    bar = a

  end function bar

end subroutine foo