1! { dg-do compile }
2! { dg-options "-std=f2008" }
3!
4! Contributed by Reinhold Bader
5!
6use iso_c_binding
7type, bind(C) :: cstruct
8  integer :: i
9end type
10interface
11     subroutine psub(this) bind(c, name='Psub') ! { dg-error "TS 29113/TS 18508: Variable 'this' at .1. with POINTER attribute in procedure 'psub' with BIND.C." }
12       import :: c_float, cstruct
13       real(c_float), pointer  :: this(:)
14     end subroutine psub
15     subroutine psub2(that) bind(c, name='Psub2') ! { dg-error "TS 29113/TS 18508: Variable 'that' at .1. with ALLOCATABLE attribute in procedure 'psub2' with BIND.C." }
16       import :: c_float, cstruct
17       type(cstruct), allocatable  :: that(:)
18     end subroutine psub2
19  end interface
20end
21