diff --git a/gcc/cobol/ChangeLog b/gcc/cobol/ChangeLog
index 6bd521345ba674ba0595d00b32b4d009ab4cc878..033fd645b395ed560f5f4e1db40326f70029b458 100644
--- a/gcc/cobol/ChangeLog
+++ b/gcc/cobol/ChangeLog
@@ -46,4 +46,6 @@
 	convert scan_post.h to cbl_warning
 	convert scan.l to cbl_warning
 	convert parse_ante.h to cbl_warning
+	convert parse_util.h to cbl_warning
+	gcc/cobol has no calls to warnx
 
diff --git a/gcc/cobol/parse_util.h b/gcc/cobol/parse_util.h
index b273da9ed249054063a665cc5e87e3e413730be9..2a21d2def0b0933242f5e05100ec43fc57b49033 100644
--- a/gcc/cobol/parse_util.h
+++ b/gcc/cobol/parse_util.h
@@ -346,7 +346,7 @@ intrinsic_invalid_parameter( int token, size_t n, cbl_field_t **fields ) {
                            return token == descr.token;
                          } );
   if( p == function_descrs_end ) {
-    warnx( "%s: internal error: intrinsic function  %s not found",
+    cbl_warning( "%s: internal error: intrinsic function  %s not found",
            __func__, keyword_str(token) );
     return n? fields[0] : NULL;
   }