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