16 lines
420 B
Fortran
16 lines
420 B
Fortran
! { 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
|