File fix_hashtab.patch of Package ftnchek
Allow for more than 255 intrinsics, at the moment ~400 intrinsics
are defined. Surplus intrinsics were simply ignored before this change.
--- ftnchek/intrins.c.orig 2020-10-28 15:12:22.809795776 +0100
+++ ftnchek/intrins.c 2020-10-28 15:13:14.732856103 +0100
@@ -712,9 +712,9 @@ PROTO( PRIVATE void set_intrinsic_numarg
PROTO(PRIVATE unsigned long kwd_hash,( const char *s ));
-#define EMPTY 255
+#define EMPTY 65535
-PRIVATE unsigned char intrins_hashtab[INTRINS_HASHSZ];
+PRIVATE unsigned short intrins_hashtab[INTRINS_HASHSZ];
/* init_intrins_hashtab:
Initializes the intrinsic hash table by clearing it to EMPTY