gcc/testsuite/gfortran.dg/public_private_module_4.f90

   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 !
  12 use m
  13 use m2
  14 implicit none
  15
  16 type(t) :: a, b, c
  17 type(t2) :: x
  18
  19 call gen()
  20 a = b + (c .myop. a)
  21
  22 call x%func()
  23 end