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] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do compile }`	`! { dg-do compile }`
`module bind_c_implicit_vars`	`module bind_c_implicit_vars`

`bind(c) :: j ! { dg-warning "may not be C interoperable" }`	`bind(c) :: j ! { dg-warning "may not be C interoperable" }`

`contains`	`contains`
`subroutine sub0(i) bind(c) ! { dg-warning "may not be C interoperable" }`	`subroutine sub0(i) bind(c) ! { dg-warning "may not be C interoperable" }`
`i = 0`	`i = 0`
`end subroutine sub0`	`end subroutine sub0`
`end module bind_c_implicit_vars`	`end module bind_c_implicit_vars`

`! { dg-final { cleanup-modules "bind_c_implicit_vars" } }`	`! { dg-final { cleanup-modules "bind_c_implicit_vars" } }`