gcc/testsuite/gfortran.dg/proc_ptr_common_2.f90

   1 ! { dg-do compile }
   2
   3 ! PR fortran/36592
   4 !
   5 ! Procedure Pointers inside COMMON blocks.
   6 !
   7 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>.
   8
   9 abstract interface
  10  subroutine foo() bind(C)
  11  end subroutine foo
  12 end interface
  13
  14 procedure(foo), pointer, bind(C) :: proc
  15 common /com/ proc,r
  16
  17 common s
  18 call s()  ! { dg-error "PROCEDURE attribute conflicts with COMMON attribute" }
  19
  20 end