1! { dg-do compile { target skip-all-targets } } 2! 3! To be used by public_private_module_3.f90 4! 5! PR fortran/52916 6! Cf. PR fortran/40973 7! 8! Ensure that PRIVATE specific functions do not get 9! marked as TREE_PUBLIC() = 0, if the generic name is 10! PUBLIC. 11! 12use m 13use m2 14implicit none 15 16type(t) :: a, b, c 17type(t2) :: x 18 19call gen() 20a = b + (c .myop. a) 21 22call x%func() 23end 24