gcc/testsuite/gfortran.dg/c_sizeof_3.f90

   1 ! { dg-do link }
   2 !
   3 ! PR fortran/40568
   4 !
   5 ! Module checks for C_SIZEOF (part of ISO_C_BINDING)
   6 !
   7 subroutine test
   8 use iso_c_binding, only: foo => c_sizeof, bar=> c_sizeof, c_sizeof, c_int
   9 integer(c_int) :: i
  10 print *, c_sizeof(i), bar(i), foo(i)
  11 end
  12
  13 use iso_c_binding
  14 implicit none
  15 integer(c_int) :: i
  16 print *, c_sizeof(i)
  17 call test()
  18 end