! { dg-do compile } | |
! PR fortran/67900 | |
! Original code contributed by Giorgian Borca-Tasciuc | |
! giorgianb at gmail dot com | |
! | |
program main | |
implicit none | |
interface f | |
function f_real(x) | |
real, bind(c) :: x | |
real :: f_real | |
end function f_real | |
function f_integer(x) | |
integer, bind(c) :: x | |
integer :: f_integer | |
end function f_integer | |
end interface f | |
end program main |