4 files changed, 8 insertions, 8 deletions
diff --git a/test/Fortran/SHF77FLAGS.py b/test/Fortran/SHF77FLAGS.py
index 7d55a91d..644b8277 100644
--- a/test/Fortran/SHF77FLAGS.py
+++ b/test/Fortran/SHF77FLAGS.py
@@ -38,11 +38,11 @@ test = TestSCons.TestSCons()
 test.write('myg77.py', r"""
 import getopt
 import sys
-opts, args = getopt.getopt(sys.argv[1:], 'cf:o:x')
+opts, args = getopt.getopt(sys.argv[1:], 'cf:K:o:x')
 optstring = ''
 for opt, arg in opts:
     if opt == '-o': out = arg
-    elif opt != '-f': optstring = optstring + ' ' + opt
+    elif opt not in ('-f', '-K'): optstring = optstring + ' ' + opt
 infile = open(args[0], 'rb')
 outfile = open(out, 'wb')
 outfile.write(optstring + "\n")
diff --git a/test/Fortran/SHF90FLAGS.py b/test/Fortran/SHF90FLAGS.py
index 7ff3a43b..d5066c6a 100644
--- a/test/Fortran/SHF90FLAGS.py
+++ b/test/Fortran/SHF90FLAGS.py
@@ -39,11 +39,11 @@ test.write('myfortran.py', r"""
 import getopt
 import sys
 comment = '#' + sys.argv[1]
-opts, args = getopt.getopt(sys.argv[2:], 'cf:o:xy')
+opts, args = getopt.getopt(sys.argv[2:], 'cf:K:o:xy')
 optstring = ''
 for opt, arg in opts:
     if opt == '-o': out = arg
-    elif opt != '-f': optstring = optstring + ' ' + opt
+    elif opt not in ('-f', '-K'): optstring = optstring + ' ' + opt
 infile = open(args[0], 'rb')
 outfile = open(out, 'wb')
 outfile.write(optstring + "\n")
diff --git a/test/Fortran/SHF95FLAGS.py b/test/Fortran/SHF95FLAGS.py
index b809d22e..b945bac1 100644
--- a/test/Fortran/SHF95FLAGS.py
+++ b/test/Fortran/SHF95FLAGS.py
@@ -39,11 +39,11 @@ test.write('myfortran.py', r"""
 import getopt
 import sys
 comment = '#' + sys.argv[1]
-opts, args = getopt.getopt(sys.argv[2:], 'cf:o:xy')
+opts, args = getopt.getopt(sys.argv[2:], 'cf:K:o:xy')
 optstring = ''
 for opt, arg in opts:
     if opt == '-o': out = arg
-    elif opt != '-f': optstring = optstring + ' ' + opt
+    elif opt not in ('-f', '-K'): optstring = optstring + ' ' + opt
 infile = open(args[0], 'rb')
 outfile = open(out, 'wb')
 outfile.write(optstring + "\n")
diff --git a/test/Fortran/SHFORTRANFLAGS.py b/test/Fortran/SHFORTRANFLAGS.py
index 65f6a6ce..11116f4e 100644
--- a/test/Fortran/SHFORTRANFLAGS.py
+++ b/test/Fortran/SHFORTRANFLAGS.py
@@ -37,11 +37,11 @@ test = TestSCons.TestSCons()
 test.write('myfortran.py', r"""
 import getopt
 import sys
-opts, args = getopt.getopt(sys.argv[1:], 'cf:o:x')
+opts, args = getopt.getopt(sys.argv[1:], 'cf:K:o:x')
 optstring = ''
 for opt, arg in opts:
     if opt == '-o': out = arg
-    elif opt != '-f': optstring = optstring + ' ' + opt
+    elif opt not in ('-f', '-K'): optstring = optstring + ' ' + opt
 infile = open(args[0], 'rb')
 outfile = open(out, 'wb')
 outfile.write(optstring + "\n")