mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-12 20:21:45 +08:00
Code Issues Packages Projects Releases Wiki Activity

gfortran.texi: Document Q edit descriptor under " Extensions not implemented in GNU Fortran".

Browse Source 
2019-03-14  Thomas Koenig  <tkoenig@gcc.gnu.org>

	* gfortran.texi: Document Q edit descriptor under
	" Extensions not implemented in GNU Fortran".

From-SVN: r269690
This commit is contained in:
Thomas Koenig 2019-03-14 17:31:18 +00:00
parent 3ce5bdf77c
commit c27722368b
2 changed files with 27 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -1,3 +1,8 @@
2019-03-14 Thomas Koenig <tkoenig@gcc.gnu.org>
* gfortran.texi: Document Q edit descriptor under
" Extensions not implemented in GNU Fortran".
2019-03-13 Harald Anlauf <anlauf@gmx.de>
PR fortran/87045

24
gcc/fortran/gfortran.texi
View File

@ -2889,13 +2889,13 @@ code that uses them running with the GNU Fortran compiler.
@menu
* ENCODE and DECODE statements::
* Variable FORMAT expressions::
@c * Q edit descriptor::
@c * TYPE and ACCEPT I/O Statements::
@c * DEFAULTFILE, DISPOSE and RECORDTYPE I/O specifiers::
@c * Omitted arguments in procedure call::
* Alternate complex function syntax::
* Volatile COMMON blocks::
* OPEN( ... NAME=)::
* Q edit descriptor::
@end menu
@node ENCODE and DECODE statements
@ -3018,7 +3018,7 @@ invalid standard Fortran syntax and is not supported by
@node OPEN( ... NAME=)
@subsection @code{OPEN( ... NAME=)}
@cindex @code{NAM}
@cindex @code{NAME}
Some Fortran compilers, including @command{g77}, let the user declare
@code{OPEN( ... NAME=)}. This is
@ -3026,6 +3026,26 @@ invalid standard Fortran syntax and is not supported by
@command{gfortran}. @code{OPEN( ... NAME=)} should be replaced
with @code{OPEN( ... FILE=)}.
@node Q edit descriptor
@subsection @code{Q} edit descriptor
@cindex @code{Q} edit descriptor
Some Fortran compilers provide the @code{Q} edit descriptor, which
transfers the number of characters left within an input record into an
integer variable.
A direct replacement of the @code{Q} edit descriptor is not available
in @command{gfortran}. How to replicate its functionality using
standard-conforming code depends on what the intent of the original
code is.
Options to replace @code{Q} may be to read the whole line into a
character variable and then counting the number of non-blank
characters left using @code{LEN_TRIM}. Another method may be to use
formatted stream, read the data up to the position where the @code{Q}
descriptor occurred, use @code{INQUIRE} to get the file position,
count the characters up to the next @code{NEW_LINE} and then start
reading from the position marked previously.
@c ---------------------------------------------------------------------