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