gcc/testsuite/gfortran.dg/use_only_6.f90

   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.
   4 module mm
   5   integer :: a, b
   6   common /mm1/ a, b
   7 end module mm
   8
   9 subroutine aa()
  10   use mm, only: a
  11   implicit none
  12   a = 1
  13 end subroutine aa