summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/c_kind_tests_3.f03
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