1! RUN: %python %S/test_modfile.py %s %flang_fc1 2! Resolution of specification expression references to generic interfaces 3! that resolve to private specific functions. 4 5module m1 6 interface gen 7 module procedure priv 8 end interface 9 private :: priv 10 contains 11 pure integer function priv(n) 12 integer, intent(in) :: n 13 priv = n 14 end function 15end module 16!Expect: m1.mod 17!module m1 18!private::priv 19!interface gen 20!procedure::priv 21!end interface 22!contains 23!pure function priv(n) 24!integer(4),intent(in)::n 25!integer(4)::priv 26!end 27!end 28 29module m2 30 use m1 31 contains 32 subroutine s(a) 33 real :: a(gen(1)) 34 end subroutine 35end module 36!Expect: m2.mod 37!module m2 38!use m1,only:gen 39!use m1,only:m1$m1$priv=>priv 40!private::m1$m1$priv 41!contains 42!subroutine s(a) 43!real(4)::a(1_8:int(m1$m1$priv(1_4),kind=8)) 44!end 45!end 46 47use m2 48end 49