gcc/testsuite/gfortran.dg/proc_ptr_37.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 51081: [F03] Proc-pointer assignment: Rejects valid internal proc
   4 !
   5 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
   6
   7 procedure(), pointer :: p1
   8 procedure(real), pointer :: p2
   9 p1 => int2
  10 p2 => scale   ! { dg-error "is invalid in procedure pointer assignment" }
  11 contains
  12   subroutine int2()
  13     print *,"..."
  14   end subroutine
  15 end