URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gfortran.dg/] [bind_c_18.f90] - Rev 516
Compare with Previous | Blame | View Log
! { dg-do compile }
! PR fortran/37201
!
! Before character arrays were allowed as bind(C) return value.
!
implicit none
INTERFACE
FUNCTION my() BIND(C,name="my") RESULT(r) ! { dg-error "cannot be an array" }
USE iso_c_binding
CHARACTER(kind=C_CHAR) :: r(10)
END FUNCTION
END INTERFACE
INTERFACE
FUNCTION two() BIND(C,name="two") RESULT(r) ! { dg-error "cannot be a character string" }
USE iso_c_binding
CHARACTER(kind=C_CHAR,len=2) :: r
END FUNCTION
END INTERFACE
END