1! { dg-do compile }
2! PR 13575 -- we used to not see that c0 has no type, and then ICE later
3module AHFinder_dat
4implicit none
5save c0 ! { dg-error "no IMPLICIT type" "no IMPLICIT type" }
6end module AHFinder_dat
7! PR 15978 -- we used to not see that aaa has no type, and then ICE later
8implicit none
9common/rommel/aaa ! { dg-error "no IMPLICIT type" "no IMPLICIT type" }
10end
11