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 9abstract interface 10 subroutine foo() bind(C) 11 end subroutine foo 12end interface 13 14procedure(foo), pointer, bind(C) :: proc 15common /com/ proc,r 16 17common s 18call s() ! { dg-error "PROCEDURE attribute conflicts with COMMON attribute" } 19 20end 21