mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
16 lines
352 B
Fortran
16 lines
352 B
Fortran
! { dg-do compile }
|
|
! Contributed by Joost VandeVondele
|
|
! test levenshtein based spelling suggestions for keyword arguments
|
|
|
|
module test
|
|
contains
|
|
subroutine mysub(iarg1)
|
|
integer :: iarg1
|
|
end subroutine
|
|
end module
|
|
|
|
use test
|
|
call mysub(iarg=1) ! { dg-error "Keyword argument .iarg. at .1. is not in the procedure; did you mean .iarg1.\\?" }
|
|
|
|
end
|