blob: cb9909cccb21832ad4987aee1a7ceb00e513338b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
! { dg-do compile }
!
! PR fortran/38829
!
MODULE mExample
CONTAINS
SUBROUTINE wrapper(y_c) bind(c)
USE iso_c_binding
type, bind(c) :: ty_c
type(c_ptr) :: y_cptr
Integer(c_int) ny
end type
type(ty_c) :: y_c
END SUBROUTINE
END MODULE
|