1! { dg-do compile }
2! Tests the fix for PR32881, in which the initialization
3! of 'p' generated an error because the pureness of 'bar'
4! escaped.
5!
6! Contributed by Janne Blomqvist <jb@gcc.gnu.org>
7!
8subroutine foo ()
9  integer, pointer :: p => NULL()
10contains
11  pure function bar (a)
12    integer, intent(in) :: a
13    integer :: bar
14    bar = a
15  end function bar
16end subroutine foo
17
18