Sign in
gnu
/
gcc
/
refs/heads/devel/c++-contracts
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
c_kind_tests_3.f03
blob: 5d5f3ab195f5291a7e6f37c31cdfc0f92538c488 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
!
PR
47023
:
[
4.6
/
4.7
regression
]
C_Sizeof
:
Rejects
valid code
!
!
Contributed
by
<
florian
.
rathgeber@gmail
.
com
>
use
iso_c_binding
real
(
c_double
)
x
print
*,
c_sizeof
(
x
)
print
*,
c_sizeof
(
0.0
_c_double
)
end