1! { dg-do compile }
2! PR 52668 - there used to be a bogus warning about not using b.
3! Original test case by Arnaud Desitter.
4module mm
5 integer :: a, b
6 common /mm1/ a, b
7end module mm
8
9subroutine aa()
10 use mm, only: a
11 implicit none
12 a = 1
13end subroutine aa
14