1! { dg-do compile } 2! PR fortran/25146 3program i 4 implicit none 5 TYPE (a) t1 ! { dg-error "is being used before" } 6 nullify(t1%x) ! { dg-error "Symbol 't1' at .1. has no IMPLICIT type" } 7end program 8