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

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [bind_c_implicit_vars.f03] - Blame information for rev 437

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


! { dg-do compile }
module bind_c_implicit_vars
 
bind(c) :: j ! { dg-warning "may not be C interoperable" }
 
contains
  subroutine sub0(i) bind(c) ! { dg-warning "may not be C interoperable" }
    i = 0
  end subroutine sub0
end module bind_c_implicit_vars
 
! { dg-final { cleanup-modules "bind_c_implicit_vars" } }

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`module bind_c_implicit_vars`
3
4			`bind(c) :: j ! { dg-warning "may not be C interoperable" }`
5
6			`contains`
7			`subroutine sub0(i) bind(c) ! { dg-warning "may not be C interoperable" }`
8			`i = 0`
9			`end subroutine sub0`
10			`end module bind_c_implicit_vars`
11
12			`! { dg-final { cleanup-modules "bind_c_implicit_vars" } }`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [bind_c_implicit_vars.f03] - Blame information for rev 437