stdlib_io: add Python-like input() function

Author: Brijesh-Thakkar

doc/specs/stdlib_io.md

@@ -246,6 +246,52 @@ Read a whole line from a formatted unit into a string variable
 ```fortran
 {!example/io/example_get_line.f90!}
 ```
+## `input` — read a line from standard input
+
+### Status
+
+Experimental
+
+### Description
+
+Reads a line from standard input, optionally displaying a prompt.
+This is similar to Python’s `input()` function.
+
+The function returns the input as an allocatable character string.
+Trailing spaces and tabs are preserved.
+No numeric conversion is performed.
+
+### Syntax
+
+`line = ` [[stdlib_io(module):input(function)]] `([prompt][, iostat][, iomsg])`
+
+### Arguments
+
+`prompt` (optional):  
+A character expression containing a prompt to be displayed before reading input.
+
+`iostat` (optional):  
+Default integer, contains status of reading from standard input.
+Zero indicates success.
+
+`iomsg` (optional):  
+Deferred-length character variable containing an error message if `iostat` is non-zero.
+
+### Return value
+
+Returns a deferred-length allocatable `character` variable containing the input line.
+
+### Notes
+
+- Trailing spaces and tabs are preserved
+- No type conversion is performed
+- To convert to numbers, use `read(line, *)`
+
+### Example
+
+```fortran
+{!example/io/example_input.f90!}
+```
 
 ## Formatting constants
 

example/io/example_input.f90

@@ -0,0 +1,2 @@
+name = input("Enter your name: ")
+print *, "Hello:", name

src/stdlib_io.fypp

@@ -16,7 +16,7 @@ module stdlib_io
   implicit none
   private
   ! Public API
-  public :: loadtxt, savetxt, open, get_line, get_file
+  public :: loadtxt, savetxt, open, get_line, get_file , input
 
   !! version: experimental 
   !!
@@ -82,6 +82,13 @@ module stdlib_io
     module procedure :: get_line_input_string
   end interface get_line
 
+  !> Version: experimental
+  !>
+  !> Read a line from standard input with an optional prompt
+  interface input
+    module procedure :: input_char
+  end interface input
+
   interface loadtxt
     !! version: experimental
     !!
@@ -597,6 +604,40 @@ contains
     call get_line(input_unit, line, iostat, iomsg)
   end subroutine get_line_input_char
 
+  !> Version: experimental
+  !>
+  !> Read a line from standard input with an optional prompt.
+  !! Similar to Python's input().
+  !!
+  !! - Preserves trailing whitespace
+  !! - Returns allocatable character string
+  !! - Does not perform type conversion
+  !! - Does not stop on error unless caller chooses to
+  function input_char(prompt, iostat, iomsg) result(line)
+    use, intrinsic :: iso_fortran_env, only : output_unit
+    character(len=*), intent(in), optional :: prompt
+    integer, intent(out), optional :: iostat
+    character(len=:), allocatable, optional :: iomsg
+    character(len=:), allocatable :: line
+
+    integer :: stat
+
+    ! Print prompt without newline
+    if (present(prompt)) then
+      write(output_unit, '(a)', advance='no') prompt
+    end if
+
+    ! Read line from stdin
+    call get_line_input_char(line, stat, iomsg)
+
+    if (present(iostat)) then
+      iostat = stat
+    else if (stat /= 0) then
+      call error_stop("input: error reading from standard input")
+    end if
+  end function input_char
+
+
   !> Version: experimental
   !>
   !> Read a whole line from the standard input into a string variable

test/io/test_input.f90

@@ -0,0 +1,3 @@
+call write_test_input("  abc  ")
+s = input()
+call assert_equal(s, "  abc  ")