gcc/fortran/

[official-gcc.git] / gcc / testsuite / gfortran.dg / pr67900.f90

! { 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