blob: 86fd7914b4d3824639c0ca893bfec67c42e26051 [file] [log] [blame]
! We were incorrectly mangling procedures in interfaces in modules
module module_interface
interface
subroutine foo ()
end subroutine foo
end interface
contains
subroutine cs
end subroutine
subroutine cproc
interface
subroutine bar ()
end subroutine
end interface
call bar ()
call foo ()
call cs ()
end subroutine
end module
subroutine foo ()
end subroutine
subroutine bar ()
end subroutine
program module_interface_proc
use module_interface
interface
subroutine bar ()
end subroutine
end interface
call cproc ()
call foo ()
call bar ()
end program