URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [c_ptr_tests_13.f03] - Blame information for rev 720

Go to most recent revision | Details | Compare with Previous | 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

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! Ensure that the user cannot call the structure constructor for one of`
3			`! the iso_c_binding derived types.`
4			`!`
5			`! PR fortran/33760`
6			`!`
7			`program main`
8			`use ISO_C_BINDING`
9			`implicit none`
10			`integer(C_INTPTR_T) p`
11			`type(C_PTR) cptr`
12			`p = 0`
13			`cptr = C_PTR(p+1) ! { dg-error "Components of structure constructor" }`
14			`cptr = C_PTR(1) ! { dg-error "Components of structure constructor" }`
15			`end program main`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [c_ptr_tests_13.f03] - Blame information for rev 720