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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [c_sizeof_3.f90] - Blame information for rev 774

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


! { dg-do link }
!
! PR fortran/40568
!
! Module checks for C_SIZEOF (part of ISO_C_BINDING)
!
subroutine test
use iso_c_binding, only: foo => c_sizeof, bar=> c_sizeof, c_sizeof, c_int
integer(c_int) :: i
print *, c_sizeof(i), bar(i), foo(i)
end
 
use iso_c_binding
implicit none
integer(c_int) :: i
print *, c_sizeof(i)
call test()
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do link }`
2			`!`
3			`! PR fortran/40568`
4			`!`
5			`! Module checks for C_SIZEOF (part of ISO_C_BINDING)`
6			`!`
7			`subroutine test`
8			`use iso_c_binding, only: foo => c_sizeof, bar=> c_sizeof, c_sizeof, c_int`
9			`integer(c_int) :: i`
10			`print *, c_sizeof(i), bar(i), foo(i)`
11			`end`
12
13			`use iso_c_binding`
14			`implicit none`
15			`integer(c_int) :: i`
16			`print *, c_sizeof(i)`
17			`call test()`
18			`end`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [c_sizeof_3.f90] - Blame information for rev 774