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