call error_stop -> error stop

Author: perazz

src/stdlib_io.fypp

@@ -9,7 +9,6 @@ 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
@@ -147,7 +146,7 @@ contains
 
         if (ios/=0) then 
            write(msgout,1) trim(iomsg),i,trim(filename) 
-           call error_stop(msg=trim(msgout))
+           error stop trim(msgout)
         end if
 
       end do
@@ -168,7 +167,7 @@ contains
 
           if (ios/=0) then 
              write(msgout,1) trim(iomsg),i,trim(filename) 
-             call error_stop(msg=trim(msgout))
+             error stop trim(msgout)
           end if          
 
         enddo
@@ -179,7 +178,7 @@ contains
 
           if (ios/=0) then 
              write(msgout,1) trim(iomsg),i,trim(filename) 
-             call error_stop(msg=trim(msgout))
+             error stop trim(msgout)
           end if             
 
         enddo
@@ -231,7 +230,7 @@ contains
 
         if (ios/=0) then 
            write(msgout,1) trim(iomsg),i,trim(filename) 
-           call error_stop(msg=trim(msgout))
+           error stop trim(msgout)
         end if           
 
       end do
@@ -367,7 +366,7 @@ contains
       position_='asis'
       status_='new'
     case default
-      call error_stop("Unsupported mode: "//mode_(1:2))
+      error stop "Unsupported mode: "//mode_(1:2)
     end select
 
     select case (mode_(3:3))
@@ -376,7 +375,7 @@ contains
     case('b')
       form_='unformatted'
     case default
-      call error_stop("Unsupported mode: "//mode_(3:3))
+      error stop "Unsupported mode: "//mode_(3:3)   
     end select
 
     access_ = 'stream'
@@ -422,9 +421,9 @@ contains
       else if (a(i:i) == ' ') then
         cycle
       else if(any(.not.lfirst)) then
-        call error_stop("Wrong mode: "//trim(a))
+        error stop "Wrong mode: "//trim(a)
       else
-        call error_stop("Wrong character: "//a(i:i))
+        error stop "Wrong character: "//a(i:i)
       endif
     end do
 
@@ -473,7 +472,7 @@ contains
     if (present(iostat)) then
       iostat = stat
     else if (stat /= 0) then
-      call error_stop(trim(msg))
+      error stop trim(msg)  
     end if
   end subroutine getline_char