repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Update ChangeLog and version files for release
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
c_sizeof_3.f90
blob
8a68cb94c304d3af40b47d0408947632b953eec7
1
! { 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