1! { dg-do compile }
2! { dg-options "-Wall" }
3! PR fortran/49693 - this used to cause a spurious warning for the
4! variable in the common block.
5! Test case by Stephan Kramer.
6module foo
7  implicit none
8  integer:: a, b
9  common a
10end module foo
11