blob: 5a785b8a94d87b5bd769a5431698c65fd0cdb7aa [file] [log] [blame]
! { dg-do compile}
!
! TS 29113
! 5.3 ALLOCATABLE, OPTIONAL, and POINTER attributes
! The ALLOCATABLE, OPTIONAL, and POINTER attributes may be specified
! for a dummy argument in a procedure interface that has the BIND
! attribute.
subroutine test (a, b, c)
integer, allocatable :: a
integer, optional :: b
integer, pointer :: c
interface
subroutine ctest (aa, bb, cc) bind (c)
integer, allocatable :: aa
integer, optional :: bb
integer, pointer :: cc
end subroutine
end interface
call ctest (a, b, c)
end subroutine