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

Subversion Repositories openrisc

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

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


! { dg-do compile }
module test
use iso_c_binding, only: c_int
    type, bind(c) ::  foo
      integer :: p ! { dg-warning "may not be C interoperable" }
    end type
    type(foo), bind(c) :: cp
end module test
 
! { dg-final { cleanup-modules "test" } }

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`module test`
3			`use iso_c_binding, only: c_int`
4			`type, bind(c) :: foo`
5			`integer :: p ! { dg-warning "may not be C interoperable" }`
6			`end type`
7			`type(foo), bind(c) :: cp`
8			`end module test`
9
10			`! { dg-final { cleanup-modules "test" } }`

Browse

Tools

Subversion Repositories openrisc

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