blob: a1b0fcc62031988fbec6e61aaadcde884fc75e34 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
! { 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
|
