mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
20 lines
335 B
Fortran
20 lines
335 B
Fortran
! { dg-do compile }
|
|
! PR fortran/66695 - this used to ICE.
|
|
! Original test case by Vladimir Fuka.
|
|
module mod
|
|
implicit none
|
|
contains
|
|
integer function F()
|
|
end function
|
|
end module
|
|
|
|
module mod_C
|
|
use mod
|
|
implicit none
|
|
contains
|
|
subroutine s() bind(C, name="f")
|
|
integer :: x
|
|
x = F()
|
|
end subroutine
|
|
end module
|