1! { dg-do compile }
2!
3! PR 50515: gfortran should not accept an external that is a common (r178939)
4!
5! Contributed by Vittorio Zecca <zeccav@gmail.com>
6
7common/sub/ a  ! { dg-error "can not have the EXTERNAL attribute" }
8external sub
9end
10