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