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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log


! { dg-do compile }
module bind_c_array_params
use, intrinsic :: iso_c_binding
implicit none
 
contains
  subroutine sub0(assumed_array) bind(c) ! { dg-error "cannot be an argument" }
    integer(c_int), dimension(:) :: assumed_array
  end subroutine sub0
 
  subroutine sub1(deferred_array) bind(c) ! { dg-error "cannot" }
    integer(c_int), pointer :: deferred_array(:)
  end subroutine sub1
end module bind_c_array_params

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`module bind_c_array_params`
3			`use, intrinsic :: iso_c_binding`
4			`implicit none`
5
6			`contains`
7			`subroutine sub0(assumed_array) bind(c) ! { dg-error "cannot be an argument" }`
8			`integer(c_int), dimension(:) :: assumed_array`
9			`end subroutine sub0`
10
11			`subroutine sub1(deferred_array) bind(c) ! { dg-error "cannot" }`
12			`integer(c_int), pointer :: deferred_array(:)`
13			`end subroutine sub1`
14			`end module bind_c_array_params`

Browse

Tools

Subversion Repositories openrisc

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