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