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