blob: 48dcf72ca9d24a4a697d05a0bf06fe998fde418c (
plain)
1
2
3
4
5
6
7
8
|
! { dg-do compile }
! PR fortran/40246
!
! Check error recovery; was crashing before.
!
real, pointer :: ptr
nullify(ptr, mesh%coarser) ! { dg-error "Syntax error in NULLIFY statement" }
end
|