File argcheck.c.patch of Package ftnchek
Fix a same-var comparison for "dummy_arg->kind".
--- ftnchek/argcheck.c.orig 2013-07-24 21:00:39.000000000 +0200
+++ ftnchek/argcheck.c 2020-06-18 00:52:58.891337915 +0200
@@ -1179,7 +1179,7 @@ int match_args(ArgListHeader **defn_addr
not_matched++;
break;
}
- if (dummy_arg->kind != dummy_arg->kind) {
+ if (dummy_arg->kind != actual_arg->kind) {
not_matched++;
break;
}