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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [c_loc_tests_13.f90] - Blame information for rev 694

Details | Compare with Previous | View Log


! { dg-do compile }
!
! PR fortran/38536
! Consecutive array and substring references rejected as C_LOC argument
!
! contributed by Scot Breitenfield 
 
  USE ISO_C_BINDING
  TYPE test
     CHARACTER(LEN=2), DIMENSION(1:2) :: c
  END TYPE test
  TYPE(test), TARGET :: chrScalar
  TYPE(C_PTR) :: f_ptr
 
  f_ptr = C_LOC(chrScalar%c(1)(1:1))
  END

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR fortran/38536`
4			`! Consecutive array and substring references rejected as C_LOC argument`
5			`!`
6			`! contributed by Scot Breitenfield`
7
8			`USE ISO_C_BINDING`
9			`TYPE test`
10			`CHARACTER(LEN=2), DIMENSION(1:2) :: c`
11			`END TYPE test`
12			`TYPE(test), TARGET :: chrScalar`
13			`TYPE(C_PTR) :: f_ptr`
14
15			`f_ptr = C_LOC(chrScalar%c(1)(1:1))`
16			`END`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [c_loc_tests_13.f90] - Blame information for rev 694