! { dg-do run } | |
! PR 79485 - used to crash because the wrong routine was called. | |
module fmod1 | |
contains | |
subroutine foo(i) | |
implicit none | |
integer, intent(inout) :: i | |
i=i+1 | |
end subroutine foo | |
end module fmod1 | |
module fmod2 | |
use iso_c_binding | |
use fmod1, only : foo_first => foo | |
contains | |
subroutine foo(i) bind(c) | |
implicit none | |
integer, intent(inout) :: i | |
i=i+2 | |
call foo_first(i) | |
end subroutine foo | |
end module fmod2 | |
use fmod2 | |
call foo(i) | |
end |