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