blob: c077fbcfd8944176deaaa80a2afe2149b30e69b4 (
plain)
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
|