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

Subversion Repositories openrisc

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

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	694	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

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