URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [c_ptr_tests_13.f03] - Rev 312
Go to most recent revision | Compare with Previous | Blame | View Log
! { dg-do compile }
! Ensure that the user cannot call the structure constructor for one of
! the iso_c_binding derived types.
!
! PR fortran/33760
!
program main
use ISO_C_BINDING
implicit none
integer(C_INTPTR_T) p
type(C_PTR) cptr
p = 0
cptr = C_PTR(p+1) ! { dg-error "Components of structure constructor" }
cptr = C_PTR(1) ! { dg-error "Components of structure constructor" }
end program main
Go to most recent revision | Compare with Previous | Blame | View Log