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/] [bind_c_usage_15.f90] - Blame information for rev 308

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


! { dg-do run }
!
! PR fortran/34187
! The binding label was not exported for private procedures
! with public generic interfaces.
!
module mod
  use iso_c_binding, only: c_int
  implicit none
  private
  public :: gen, c_int
  interface gen
    module procedure  test
  end interface gen
contains
  subroutine test(a) bind(c, name="myFunc")
    integer(c_int), intent(out) :: a
    a = 17
  end subroutine test
end module mod
 
program main
  use mod
  implicit none
  integer(c_int) :: x
  x = -44
  call gen(x)
  if(x /= 17) call abort()
end program main

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do run }`
2			`!`
3			`! PR fortran/34187`
4			`! The binding label was not exported for private procedures`
5			`! with public generic interfaces.`
6			`!`
7			`module mod`
8			`use iso_c_binding, only: c_int`
9			`implicit none`
10			`private`
11			`public :: gen, c_int`
12			`interface gen`
13			`module procedure test`
14			`end interface gen`
15			`contains`
16			`subroutine test(a) bind(c, name="myFunc")`
17			`integer(c_int), intent(out) :: a`
18			`a = 17`
19			`end subroutine test`
20			`end module mod`
21
22			`program main`
23			`use mod`
24			`implicit none`
25			`integer(c_int) :: x`
26			`x = -44`
27			`call gen(x)`
28			`if(x /= 17) call abort()`
29			`end program main`

Browse

Tools

Subversion Repositories openrisc_me

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