blob: 8a68cb94c304d3af40b47d0408947632b953eec7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
! { 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
|
