blob: 5d5f3ab195f5291a7e6f37c31cdfc0f92538c488 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
! { 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
|