1! { dg-do compile } 2! PR fortran/40246 3! 4! Check error recovery; was crashing before. 5! 6real, pointer :: ptr 7nullify(ptr, mesh%coarser) ! { dg-error "Symbol 'mesh' at .1. has no IMPLICIT type" } 8end 9