gcc/testsuite/gfortran.dg/c_kind_tests_3.f03


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