21 lines
377 B
Fortran
21 lines
377 B
Fortran
! { dg-do compile }
|
|
|
|
! PR fortran/36592
|
|
!
|
|
! Procedure Pointers inside COMMON blocks.
|
|
!
|
|
! Contributed by Tobias Burnus <burnus@gcc.gnu.org>.
|
|
|
|
abstract interface
|
|
subroutine foo() bind(C)
|
|
end subroutine foo
|
|
end interface
|
|
|
|
procedure(foo), pointer, bind(C) :: proc
|
|
common /com/ proc,r
|
|
|
|
common s
|
|
call s() ! { dg-error "PROCEDURE attribute conflicts with COMMON attribute" }
|
|
|
|
end
|