| ! { 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 |