5 ! Procedure Pointers inside COMMON blocks.
7 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>.
10 subroutine foo() bind(C)
14 procedure(foo), pointer, bind(C) :: proc
18 call s() ! { dg-error "PROCEDURE attribute conflicts with COMMON attribute" }