Add fortran to keyword tests

Author: sethrj

Examples/test-suite/wallkw.i

@@ -7,12 +7,21 @@
 %warnfilter(SWIGWARN_PARSE_KEYWORD) pass; // 'pass' is a python keyword, renaming to '_pass'
 %warnfilter(SWIGWARN_PARSE_KEYWORD) alias; // 'alias' is a D keyword, renaming to '_alias'
 %warnfilter(SWIGWARN_PARSE_KEYWORD) rescue; // 'rescue' is a ruby keyword, renaming to 'C_rescue'
+%warnfilter(SWIGWARN_PARSE_KEYWORD) write; // 'write' is a fortran keyword, just warn
+%warnfilter(SWIGWARN_LANG_IDENTIFIER) _123_leading_underscore; // leading underscores and numbers are illegal in fortran
+
+// Silence warning for renamed identifiers
+%warnfilter(SWIGWARN_LANG_IDENTIFIER,SWIGWARN_PARSE_KEYWORD) delegate;
+%warnfilter(SWIGWARN_LANG_IDENTIFIER,SWIGWARN_PARSE_KEYWORD) pass;
+%warnfilter(SWIGWARN_LANG_IDENTIFIER,SWIGWARN_PARSE_KEYWORD) alias;
 
 %inline %{
 const char * clone() { return "clone"; }
 const char * delegate() { return "delegate"; }
 const char * pass() { return "pass"; }
 const char * alias() { return "alias"; }
 const char * rescue() { return "rescue"; }
+const char * write() { return "write"; }
+const char * _123_leading_underscore() { return "_123_leading_underscore"; }
 %}
 

Lib/allkw.swg

@@ -18,6 +18,7 @@
 
 %include <csharp/csharpkw.swg>
 %include <d/dkw.swg>
+%include <fortran/fortrankw.swg>
 %include <go/gokw.swg>
 %include <java/javakw.swg>
 %include <lua/luakw.swg>

Lib/fortran/fortrankw.swg

@@ -34,7 +34,7 @@
 %keywordwarn("'release' is reserved for SWIG destructors",
              rename="release_") "*::release";
 
-#ifdef SWIGFORTRAN
+#ifdef %fortransubroutine
 /* Always treat return values from assignment as optional, since it's usually
  * idiomatic to `return *this;` as a reference that is often ignored by the
  * calling code. Making the function a subroutine means being able to use "call"