1! { dg-do compile } 2! PR fortran/67900 3! Original code contributed by Giorgian Borca-Tasciuc 4! giorgianb at gmail dot com 5! 6program main 7 implicit none 8 interface f 9 function f_real(x) 10 real, bind(c) :: x 11 real :: f_real 12 end function f_real 13 14 function f_integer(x) 15 integer, bind(c) :: x 16 integer :: f_integer 17 end function f_integer 18 end interface f 19end program main 20