gcc/testsuite/gfortran.dg/proc_ptr_17.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f2003" }
   3 !
   4 ! PR39998: Procedure Pointer Assignments: Statement Functions & Internal Functions.
   5 !
   6 ! Contributed by Tobias Burnus <burnus@net-b.de>
   7
   8   procedure(), pointer :: p
   9   f(x) = x**2  ! { dg-warning "Obsolescent feature" }
  10   p => f  ! { dg-error "invalid in procedure pointer assignment" }
  11   p => sub  ! { dg-error "invalid in procedure pointer assignment" }
  12 contains
  13   subroutine sub
  14   end subroutine sub
  15 end
  16