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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [lto/] [pr40725_0.f03] - Blame information for rev 801

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
 
! { dg-final { cleanup-modules "bind_c_dts_2" } }

Line No.	Rev	Author	Line
1	694	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
17			`! { dg-final { cleanup-modules "bind_c_dts_2" } }`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [lto/] [pr40725_0.f03] - Blame information for rev 801