gcc/testsuite/gfortran.dg/spellcheck-operator.f90

   1 ! { dg-do compile }
   2 ! test levenshtein based spelling suggestions
   3
   4 module 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
  12 end module mymod1
  13
  14 program 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.\\?" }
  30 end program spellchekc