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