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