re PR fortran/38829 (Bogus BIND(C) error message)
PR fortran/38829 * gfortran.dg/bind_c_usage_29.f90: New file. From-SVN: r211354
This commit is contained in:
parent
89a862b40a
commit
000fd5b109
|
@ -1,3 +1,8 @@
|
|||
2014-06-07 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
|
||||
|
||||
PR fortran/38829
|
||||
* gfortran.dg/bind_c_usage_29.f90: New file.
|
||||
|
||||
2014-06-07 Eric Botcazou <ebotcazou@adacore.com>
|
||||
|
||||
* gnat.dg/opt38.adb: New test.
|
||||
|
|
|
@ -0,0 +1,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
|
Loading…
Reference in New Issue