1! { dg-do compile }
2!
3! PR fortran/66707
4! Check the compilation on wrong usage of common
5! Contributed by Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de>
6program p
7 integer, pointer :: a
8 common a, a ! { dg-error "is already in a COMMON block" }
9 common a
10end
11