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