View | Details | Return to bug 33105
Collapse All | Expand All

(-)intrinsic.texi (+90 lines)
Lines 151-156 Link Here
151
* @code{INT8}:          INT8,      Convert to 64-bit integer type
151
* @code{INT8}:          INT8,      Convert to 64-bit integer type
152
* @code{IOR}:           IOR,       Bitwise logical or
152
* @code{IOR}:           IOR,       Bitwise logical or
153
* @code{IRAND}:         IRAND,     Integer pseudo-random number
153
* @code{IRAND}:         IRAND,     Integer pseudo-random number
154
* @code{IS_IOSTAT_END}:  IS_IOSTAT_END, Test for end-of-file value
155
* @code{IS_IOSTAT_EOR}:  IS_IOSTAT_EOR, Test for end-of-record value
154
* @code{ISATTY}:        ISATTY,    Whether a unit is a terminal device
156
* @code{ISATTY}:        ISATTY,    Whether a unit is a terminal device
155
* @code{ISHFT}:         ISHFT,     Shift bits
157
* @code{ISHFT}:         ISHFT,     Shift bits
156
* @code{ISHFTC}:        ISHFTC,    Shift bits circularly
158
* @code{ISHFTC}:        ISHFTC,    Shift bits circularly
Lines 5817-5822 Link Here
5817
5819
5818
5820
5819
5821
5822
@node IS_IOSTAT_END
5823
@section @code{IS_IOSTAT_END} --- Test for end-of-file value
5824
@fnindex IS_IOSTAT_END
5825
@cindex IOSTAT, end of file
5826
5827
@table @asis
5828
@item @emph{Description}:
5829
@code{IS_IOSTAT_END} tests whether an variable has the value of the I/O
5830
status end of file. The function is equivalent to comparing the variable
5831
with the @code{IOSTAT_END} parameter of the intrinsic module
5832
@code{ISO_FORTRAN_ENV}.
5833
5834
@item @emph{Standard}:
5835
Fortran 2003.
5836
5837
@item @emph{Class}:
5838
Elemental function
5839
5840
@item @emph{Syntax}:
5841
@code{RESULT = IS_IOSTAT_END(I)}
5842
5843
@item @emph{Arguments}:
5844
@multitable @columnfractions .15 .70
5845
@item @var{I} @tab Shall be of the type @code{INTEGER}.
5846
@end multitable
5847
5848
@item @emph{Return value}:
5849
Returns @code{.TRUE.} if the @var{I} has the value which indicates an
5850
end of file condition for IOSTAT= specifiers, and is @code{.FALSE.} otherwise.
5851
5852
@item @emph{Example}:
5853
@smallexample
5854
PROGRAM iostat
5855
  IMPLICIT NONE
5856
  INTEGER :: stat, i
5857
  OPEN(88, FILE='test.dat')
5858
  READ(88, *, IOSTAT=stat) i
5859
  IF(IS_IOSTAT_END(stat)) STOP 'END OF FILE'
5860
END PROGRAM
5861
@end smallexample
5862
@end table
5863
5864
5865
5866
@node IS_IOSTAT_EOR
5867
@section @code{IS_IOSTAT_EOR} --- Test for end-of-record value
5868
@fnindex IS_IOSTAT_EOR
5869
@cindex IOSTAT, end of record
5870
5871
@table @asis
5872
@item @emph{Description}:
5873
@code{IS_IOSTAT_EOR} tests whether an variable has the value of the I/O
5874
status end of record. The function is equivalent to comparing the variable
5875
with the @code{IOSTAT_EOR} parameter of the intrinsic module
5876
@code{ISO_FORTRAN_ENV}.
5877
5878
@item @emph{Standard}:
5879
Fortran 2003.
5880
5881
@item @emph{Class}:
5882
Elemental function
5883
5884
@item @emph{Syntax}:
5885
@code{RESULT = IS_IOSTAT_EOR(I)}
5886
5887
@item @emph{Arguments}:
5888
@multitable @columnfractions .15 .70
5889
@item @var{I} @tab Shall be of the type @code{INTEGER}.
5890
@end multitable
5891
5892
@item @emph{Return value}:
5893
Returns @code{.TRUE.} if the @var{I} has the value which indicates an
5894
end of file condition for IOSTAT= specifiers, and is @code{.FALSE.} otherwise.
5895
5896
@item @emph{Example}:
5897
@smallexample
5898
PROGRAM iostat
5899
  IMPLICIT NONE
5900
  INTEGER :: stat, i(50)
5901
  OPEN(88, FILE='test.dat', FORM='UNFORMATTED')
5902
  READ(88, IOSTAT=stat) i
5903
  IF(IS_IOSTAT_EOR(stat)) STOP 'END OF RECORD'
5904
END PROGRAM
5905
@end smallexample
5906
@end table
5907
5908
5909
5820
@node ISATTY
5910
@node ISATTY
5821
@section @code{ISATTY} --- Whether a unit is a terminal device.
5911
@section @code{ISATTY} --- Whether a unit is a terminal device.
5822
@fnindex ISATTY
5912
@fnindex ISATTY

Return to bug 33105