URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [c_loc_tests_13.f90] - Blame information for rev 316

Go to most recent revision | 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	302	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_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [c_loc_tests_13.f90] - Blame information for rev 316