! { dg-do run } | |
! Tests the fix for pr31609, where module procedure entries found | |
! themselves in the wrong namespace. This test checks that all | |
! combinations of generic and specific calls work correctly. | |
! | |
! Contributed by Paul Thomas <pault@gcc.gnu.org> as comment #8 to the pr. | |
! | |
MODULE ksbin1_aux_mod | |
interface foo | |
module procedure j | |
end interface | |
interface bar | |
module procedure k | |
end interface | |
interface foobar | |
module procedure j, k | |
end interface | |
CONTAINS | |
FUNCTION j () | |
j = 1 | |
return | |
ENTRY k (i) | |
k = 2 | |
END FUNCTION j | |
END MODULE ksbin1_aux_mod | |
use ksbin1_aux_mod | |
if (any ((/foo (), bar (99), foobar (), foobar (99), j (), k (99)/) .ne. & | |
(/1, 2, 1, 2, 1, 2/))) STOP 1 | |
end |