blob: c390254678f2e9b2239feacdf28ea8f2b574d224 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
! { dg-do compile }
! test levenshtein based spelling suggestions
program spellchekc
implicit none (external)
interface
subroutine bark_unless_zero(iarg)
implicit none
integer, intent(in) :: iarg
end subroutine bark_unless_zero
end interface
integer :: i
i = 0
if (i /= 1) STOP 1
call bark_unless_0(i) ! { dg-error "not explicitly declared; did you mean .bark_unless_zero.\\?" }
! call complain_about_0(i) ! { -dg-error "not explicitly declared; did you mean .complain_about_zero.\\?" }
contains
! We cannot reliably see this ATM, would need an unambiguous bit somewhere
subroutine complain_about_zero(iarg)
integer, intent(in) :: iarg
if (iarg /= 0) STOP 2
end subroutine complain_about_zero
end program spellchekc
subroutine bark_unless_zero(iarg)
implicit none
integer, intent(in) :: iarg
if (iarg /= 0) STOP 3
end subroutine bark_unless_zero
|
