1! { dg-do compile }
2!
3! PR fortran/52325
4!
5real :: f
6cc%a = 5 ! { dg-error "Symbol 'cc' at .1. has no IMPLICIT type" }
7f%a = 5  ! { dg-error "Unexpected '%' for nonderived-type variable 'f' at" }
8end
9