gcc/testsuite/gfortran.dg/pr67900.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

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