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