1! { dg-do compile }
2!
3! PR 47023: [4.6/4.7 regression] C_Sizeof: Rejects valid code
4!
5! Contributed by <florian.rathgeber@gmail.com>
6
7  use iso_c_binding
8  real(c_double) x
9  print *, c_sizeof(x)
10  print *, c_sizeof(0.0_c_double)
11end
12