From 5cbeb2b09f418557467616f2ae67b8815922fe4b Mon Sep 17 00:00:00 2001
From: Federico Perini <federico.perini@gmail.com>
Date: Thu, 21 Nov 2024 01:16:09 -0600
Subject: [PATCH] Revert "`call error_stop` -> `error stop`"

This reverts commit 6439a2cc2c6ed825e8d71071502c9aa9400a99c4.
---
 src/stdlib_io.fypp | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

diff --git a/src/stdlib_io.fypp b/src/stdlib_io.fypp
index ac207a944..a0b2bf09e 100644
--- a/src/stdlib_io.fypp
+++ b/src/stdlib_io.fypp
@@ -9,6 +9,7 @@ module stdlib_io
   use, intrinsic :: iso_fortran_env, only : input_unit
   use stdlib_kinds, only: sp, dp, xdp, qp, &
       int8, int16, int32, int64
+  use stdlib_error, only: error_stop
   use stdlib_optval, only: optval
   use stdlib_ascii, only: is_blank
   use stdlib_string_type, only : string_type
@@ -146,7 +147,7 @@ contains
         
         if (ios/=0) then 
            write(msgout,1) trim(iomsg),i,trim(filename) 
-           error stop trim(msgout)
+           call error_stop(msg=trim(msgout))
         end if
         
       end do
@@ -167,7 +168,7 @@ contains
           
           if (ios/=0) then 
              write(msgout,1) trim(iomsg),i,trim(filename) 
-             error stop trim(msgout)
+             call error_stop(msg=trim(msgout))
           end if          
           
         enddo
@@ -178,7 +179,7 @@ contains
           
           if (ios/=0) then 
              write(msgout,1) trim(iomsg),i,trim(filename) 
-             error stop trim(msgout)
+             call error_stop(msg=trim(msgout))
           end if             
           
         enddo
@@ -230,7 +231,7 @@ contains
         
         if (ios/=0) then 
            write(msgout,1) trim(iomsg),i,trim(filename) 
-           error stop trim(msgout)
+           call error_stop(msg=trim(msgout))
         end if           
         
       end do
@@ -366,7 +367,7 @@ contains
       position_='asis'
       status_='new'
     case default
-      error stop "Unsupported mode: "//mode_(1:2)
+      call error_stop("Unsupported mode: "//mode_(1:2))
     end select
 
     select case (mode_(3:3))
@@ -375,7 +376,7 @@ contains
     case('b')
       form_='unformatted'
     case default
-      error stop "Unsupported mode: "//mode_(3:3)   
+      call error_stop("Unsupported mode: "//mode_(3:3))
     end select
 
     access_ = 'stream'
@@ -421,9 +422,9 @@ contains
       else if (a(i:i) == ' ') then
         cycle
       else if(any(.not.lfirst)) then
-        error stop "Wrong mode: "//trim(a)
+        call error_stop("Wrong mode: "//trim(a))
       else
-        error stop "Wrong character: "//a(i:i)
+        call error_stop("Wrong character: "//a(i:i))
       endif
     end do
 
@@ -472,7 +473,7 @@ contains
     if (present(iostat)) then
       iostat = stat
     else if (stat /= 0) then
-      error stop trim(msg)  
+      call error_stop(trim(msg))
     end if
   end subroutine getline_char