1! { dg-do compile }
2! PR20847 - A common variable may not have the SAVE attribute.
3! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
4INTEGER, SAVE :: X
5COMMON /COM/ X ! { dg-error "conflicts with SAVE attribute" }
6END
7