gcc/testsuite/gfortran.dg/public_private_module.f90

   1 ! { dg-do compile }
   2 ! See PR fortran/36251.
   3 module a
   4   implicit none
   5   integer :: i = 42
   6 end module a
   7
   8 module b
   9   use a
  10   implicit none
  11   public a  ! { dg-warning "attribute applied to" }
  12 end module b
  13
  14 module d
  15   use a
  16   implicit none
  17   private a  ! { dg-warning "attribute applied to" }
  18 end module d
  19 ! { dg-final { cleanup-modules "a" } }