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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [lto/] [pr40725_0.f03] - Blame information for rev 414

Go to most recent revision | Details | Compare with Previous | View Log


module bind_c_dts_2
use, intrinsic :: iso_c_binding
implicit none
type, bind(c) :: my_c_type_1
   integer(c_int) :: j
end type my_c_type_1
contains
  subroutine sub0(my_type, expected_j) bind(c)
    type(my_c_type_1) :: my_type
    integer(c_int), value :: expected_j
    if (my_type%j .ne. expected_j) then
       call abort ()
    end if
  end subroutine sub0
end module bind_c_dts_2
 

Line No.	Rev	Author	Line
1	302	jeremybenn	`module bind_c_dts_2`
2			`use, intrinsic :: iso_c_binding`
3			`implicit none`
4			`type, bind(c) :: my_c_type_1`
5			`integer(c_int) :: j`
6			`end type my_c_type_1`
7			`contains`
8			`subroutine sub0(my_type, expected_j) bind(c)`
9			`type(my_c_type_1) :: my_type`
10			`integer(c_int), value :: expected_j`
11			`if (my_type%j .ne. expected_j) then`
12			`call abort ()`
13			`end if`
14			`end subroutine sub0`
15			`end module bind_c_dts_2`
16

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [lto/] [pr40725_0.f03] - Blame information for rev 414