]>
Commit | Line | Data |
---|---|---|
c63539ff ML |
1 | .. |
2 | Copyright 1988-2022 Free Software Foundation, Inc. | |
3 | This is part of the GCC manual. | |
4 | For copying conditions, see the copyright.rst file. | |
5 | ||
6 | .. index:: FPUTC, write character, stream mode, stream mode, write character, file operation, write character | |
7 | ||
8 | .. _fputc: | |
9 | ||
10 | FPUTC --- Write a single character in stream mode | |
11 | ************************************************* | |
12 | ||
13 | .. function:: FPUTC(UNIT, C) | |
14 | ||
15 | Write a single character in stream mode by bypassing normal formatted | |
16 | output. Stream I/O should not be mixed with normal record-oriented | |
17 | (formatted or unformatted) I/O on the same unit; the results are unpredictable. | |
18 | ||
19 | :param UNIT: | |
20 | The type shall be ``INTEGER``. | |
21 | ||
22 | :param C: | |
23 | The type shall be ``CHARACTER`` and of default | |
24 | kind. | |
25 | ||
26 | :param STATUS: | |
27 | (Optional) status flag of type ``INTEGER``. | |
28 | Returns 0 on success, -1 on end-of-file and a system specific positive | |
29 | error code otherwise. | |
30 | ||
31 | Standard: | |
32 | GNU extension | |
33 | ||
34 | Class: | |
35 | Subroutine, function | |
36 | ||
37 | Syntax: | |
38 | .. code-block:: fortran | |
39 | ||
40 | CALL FPUTC(UNIT, C [, STATUS]) | |
41 | STATUS = FPUTC(UNIT, C) | |
42 | ||
43 | Example: | |
44 | .. code-block:: fortran | |
45 | ||
46 | PROGRAM test_fputc | |
47 | CHARACTER(len=10) :: str = "gfortran" | |
48 | INTEGER :: fd = 42, i | |
49 | ||
50 | OPEN(UNIT = fd, FILE = "out", ACTION = "WRITE", STATUS="NEW") | |
51 | DO i = 1, len_trim(str) | |
52 | CALL fputc(fd, str(i:i)) | |
53 | END DO | |
54 | CLOSE(fd) | |
55 | END PROGRAM | |
56 | ||
57 | See also: | |
58 | :ref:`FPUT`, | |
59 | :ref:`FGET`, | |
3ed1b4ce | 60 | :ref:`FGETC` |