gcc/testsuite/gfortran.dg/common_15.f90 - gcc - Git at Google

 ! { dg-do compile }
 !
 ! PR 50515: gfortran should not accept an external that is a common (r178939)
 !
 ! Contributed by Vittorio Zecca <zeccav@gmail.com>

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

	common/sub/ a ! { dg-error "can not have the EXTERNAL attribute" }
	external sub
	end