1! { dg-do compile } 2! Tests the patch for PR28873, in which the call create () would cause an 3! error because resolve.c(resolve_generic_s) was failing to look in the 4! parent namespace for a matching specific subroutine. This, in fact, was 5! a regression due to the fix for PR28201. 6! 7! Contributed by Drew McCormack <drewmccormack@mac.com> 8! 9module A 10 private 11 interface create 12 module procedure create1 13 end interface 14 public :: create 15contains 16 subroutine create1 17 print *, "module A" 18 end subroutine 19end module 20 21module B 22 private 23 interface create 24 module procedure create1 25 end interface 26 public :: create 27contains 28 subroutine create1(a) 29 integer a 30 print *, "module B" 31 end subroutine 32end module 33 34module C 35 use A 36 private 37 public useCreate 38contains 39 subroutine useCreate 40 use B 41 call create() 42 call create(1) 43 end subroutine 44end module 45 46 use c 47 call useCreate 48end 49