49 lines · plain
1! RUN: %python %S/test_modfile.py %s %flang_fc12! Resolution of specification expression references to generic interfaces3! that resolve to private specific functions.4 5module m16 interface gen7 module procedure priv8 end interface9 private :: priv10 contains11 pure integer function priv(n)12 integer, intent(in) :: n13 priv = n14 end function15end module16!Expect: m1.mod17!module m118!private::priv19!interface gen20!procedure::priv21!end interface22!contains23!pure function priv(n)24!integer(4),intent(in)::n25!integer(4)::priv26!end27!end28 29module m230 use m131 contains32 subroutine s(a)33 real :: a(gen(1))34 end subroutine35end module36!Expect: m2.mod37!module m238!use m1,only:gen39!use m1,only:m1$m1$priv=>priv40!private::m1$m1$priv41!contains42!subroutine s(a)43!real(4)::a(1_8:int(m1$m1$priv(1_4),kind=8))44!end45!end46 47use m248end49