2 ! test levenshtein based spelling suggestions
6 implicit none (external)
9 subroutine bark_unless_zero(iarg
)
11 integer, intent(in
) :: iarg
12 end subroutine bark_unless_zero
19 call bark_unless_0(i
) ! { dg-error "not explicitly declared; did you mean .bark_unless_zero.\\?" }
20 ! call complain_about_0(i) ! { -dg-error "not explicitly declared; did you mean .complain_about_zero.\\?" }
23 ! We cannot reliably see this ATM, would need an unambiguous bit somewhere
24 subroutine complain_about_zero(iarg
)
25 integer, intent(in
) :: iarg
27 end subroutine complain_about_zero
29 end program spellchekc
31 subroutine bark_unless_zero(iarg
)
33 integer, intent(in
) :: iarg
35 end subroutine bark_unless_zero