mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
31 lines
899 B
Fortran
31 lines
899 B
Fortran
! { dg-do compile }
|
|
! test levenshtein based spelling suggestions
|
|
|
|
module mymod1
|
|
implicit none
|
|
contains
|
|
function something_good (iarg1)
|
|
integer :: something_good
|
|
integer, intent(in) :: iarg1
|
|
something_good = iarg1 + 42
|
|
end function something_good
|
|
end module mymod1
|
|
|
|
program spellchekc
|
|
use mymod1
|
|
implicit none
|
|
|
|
interface operator (.mywrong.)
|
|
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" }
|
|
end interface
|
|
|
|
interface operator (.mygood.)
|
|
module procedure something_good
|
|
end interface
|
|
|
|
integer :: i, j, added
|
|
i = 0
|
|
j = 0
|
|
added = .mygoof. j ! { dg-error "Unknown operator .mygoof. at .1.; did you mean .mygood.\\?" }
|
|
end program spellchekc
|