diff --git a/src/main/xxxpr.f b/src/main/xxxpr.f
index 88b1d640655..b78b4db0b9c 100644
--- a/src/main/xxxpr.f
+++ b/src/main/xxxpr.f
@@ -26,6 +26,7 @@ subroutine intpr(label, nchar, data, ndata)
       character*(*) label
       integer data(ndata)
       integer nc
+      EXTERNAL intpr0
       nc = nchar
       if(nc .lt. 0) nc = len(label)
       call intpr0(label, nc, data, ndata)
@@ -36,6 +37,7 @@ subroutine realpr(label, nchar, data, ndata)
       character*(*) label
       real data(ndata)
       integer nc
+      EXTERNAL realp0
       nc = nchar
       if(nc .lt. 0) nc = len(label)
       call realp0(label, nc, data, ndata)
@@ -46,6 +48,7 @@ subroutine dblepr(label, nchar, data, ndata)
       character*(*) label
       double precision data(ndata)
       integer nc
+      EXTERNAL dblep0
       nc = nchar
       if(nc .lt. 0) nc = len(label)
       call dblep0(label, nc, data, ndata)
@@ -57,6 +60,7 @@ subroutine intpr1(label, nchar, var)
       character*(*) label
       integer var, data(1)
       integer nc
+      EXTERNAL intpr0
       nc = nchar
       if(nc .lt. 0) nc = len(label)
       data(1) = var
@@ -68,6 +72,7 @@ subroutine realpr1(label, nchar, var)
       character*(*) label
       real var, data(1)
       integer nc
+      EXTERNAL realp0
       nc = nchar
       if(nc .lt. 0) nc = len(label)
       data(1) = var
@@ -79,6 +84,7 @@ subroutine dblepr1(label, nchar, var)
       character*(*) label
       double precision var, data(1)
       integer nc
+      EXTERNAL dblep0
       nc = nchar
       if(nc .lt. 0) nc = len(label)
       data(1) = var
@@ -90,6 +96,7 @@ subroutine labelpr(label, nchar)
       character*(*) label
       integer data(1)
       integer nc
+      EXTERNAL intpr0
       nc = nchar
       if(nc .lt. 0) nc = len(label)
       data(1) = 0
@@ -99,10 +106,12 @@ subroutine labelpr(label, nchar)
 C R-only Fortran versions of error and warning
       subroutine rexit(msg)
       character*(*) msg
+      EXTERNAL rexitc
       call rexitc(msg, len(msg))
       end
 
       subroutine rwarn(msg)
       character*(*) msg
+      EXTERNAL rwarnc
       call rwarnc(msg, len(msg))
       end