+
−! { dg-do compile }
+
−! PR 52668 - there used to be a bogus warning about not using b.
+
−! Original test case by Arnaud Desitter.
+
−module mm
+
−  integer :: a, b
+
−  common /mm1/ a, b
+
−end module mm
+
−
+
−subroutine aa()
+
−  use mm, only: a
+
−  implicit none
+
−  a = 1
+
−end subroutine aa