1! { dg-do compile }
2! test levenshtein based spelling suggestions
3
4module mymod1
5  implicit none
6  contains
7    function something_good (iarg1)
8      integer :: something_good
9      integer, intent(in) :: iarg1
10      something_good = iarg1 + 42
11    end function something_good
12end module mymod1
13
14program spellchekc
15  use mymod1
16  implicit none
17
18  interface operator (.mywrong.)
19    module procedure something_wring ! { dg-error "Procedure .something_wring. in operator interface .mywrong. at .1. is neither function nor subroutine; did you mean .something_good.\\?|User operator procedure .something_wring. at .1. must be a FUNCTION" }
20  end interface
21
22  interface operator (.mygood.)
23    module procedure something_good
24  end interface
25
26  integer :: i, j, added
27  i = 0
28  j = 0
29  added = .mygoof. j ! { dg-error "Unknown operator .mygoof. at .1.; did you mean .mygood.\\?" }
30end program spellchekc
31