gcc/testsuite/gfortran.dg/c_kind_tests_3.f03

   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)
  11 end