2 ! test levenshtein based spelling suggestions
6 implicit none (external) ! { dg-warning "GNU Extension: IMPORT NONE with spec list" }
9 subroutine bark_unless_zero(iarg
)
11 integer, intent(in
) :: iarg
12 end subroutine bark_unless_zero
18 if (i
/= 1) call abort
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
26 if (iarg
/= 0) call abort
27 end subroutine complain_about_zero
29 end program spellchekc
31 subroutine bark_unless_zero(iarg
)
33 integer, intent(in
) :: iarg
34 if (iarg
/= 0) call abort
35 end subroutine bark_unless_zero