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