system_putchar(3f) - [M_system:IO] writes a character to the stdout stream. (LICENSE:PD)
Synopsis
Description
Return Value
Return Value
Examples
integer(kind=c_int) function system_putchar(ch)
character(len=1),intent(in) :: ch
system_putchar(3f) writes the character CH to the stdout stream via C I/O
putchar(3C) returns the character written as an unsigned char cast to an int or EOF(a negative value) on error. This is passed on to system_putchar(3f).
the status code. If negative an error occurred
Example program
program demo_system_putchar use M_system, only : system_putchar implicit none integer :: i integer :: iostat do i=32,126 ! printable ASCII characters iostat=system_putchar(achar(i)) if(iostat.lt.0)stop <ERROR> *main* character //achar(i) enddo iostat=system_putchar(new_line(a)) end program demo_system_putchar
Nemo Release 3.1 | system_putchar (3) | February 23, 2025 |