diff --git a/include/IPhreeqc.f90.inc b/include/IPhreeqc.f90.inc
index 9967a38e..dd2db22b 100644
--- a/include/IPhreeqc.f90.inc
+++ b/include/IPhreeqc.f90.inc
@@ -20,6 +20,7 @@
         END FUNCTION CreateIPhreeqc
        END INTERFACE
 
+
        INTERFACE
         FUNCTION LoadDatabase(ID,FILENAME)
          INTEGER(KIND=4)  :: ID
diff --git a/src/fwrap.cpp b/src/fwrap.cpp
index a47fa27b..6eff2c10 100644
--- a/src/fwrap.cpp
+++ b/src/fwrap.cpp
@@ -23,6 +23,8 @@ compile fortran with:
 #define GetSelectedOutputColumnCountF  getselectedoutputcolumncountf_
 #define GetSelectedOutputRowCountF     getselectedoutputrowcountf_
 #define GetSelectedOutputValueF        getselectedoutputvaluef_
+#define GetWarningLineCountF           getwarninglinecountf
+#define GetWarningLineF                getwarninglinef
 #define LoadDatabaseF                  loaddatabasef_
 #define LoadDatabaseStringF            loaddatabasestringf_
 #define OutputLastErrorF               outputlasterrorf_
diff --git a/test/kinn.f b/test/kinn.f
index dd8f0712..2c73a87a 100644
--- a/test/kinn.f
+++ b/test/kinn.f
@@ -25,6 +25,8 @@
         CALL OutputLastError(id)
         STOP
       ENDIF
+      
+      iresult = GetWarningLineCount(id)      
 
 !!!!	DO 45 k=1,10