gcc/testsuite/gfortran.dg/pure_initializer_1.f90

   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 !
   8 subroutine foo ()
   9   integer, pointer :: p => NULL()
  10 contains
  11   pure function bar (a)
  12     integer, intent(in) :: a
  13     integer :: bar
  14     bar = a
  15   end function bar
  16 end subroutine foo
  17