1! { dg-do compile }
2program main
3  type Xx ! { dg-error "Symbol 'xx' at .1. also declared as a type at .2." }
4  end type Xx
5  real :: Xx  ! { dg-error "Symbol 'xx' at .1. also declared as a type at .2." }
6
7end program main
8