! { dg-do compile }
! { dg-options "-std=f2008ts" }
!
! Contributed by Reinhold Bader
! 
use iso_c_binding
type, bind(C) :: cstruct
  integer :: i
end type
interface
     subroutine psub(this, that) bind(c, name='Psub')
       import :: c_float, cstruct
       real(c_float), pointer  :: this(:)
       type(cstruct), allocatable  :: that(:)
     end subroutine psub
  end interface
end