### 8.95 `FTELL` — Current stream position

Description:
  Retrieves the current position within an open file.

  This intrinsic is provided in both subroutine and function forms; however, only one form can be used in any given program unit.

Standard:
  GNU extension
Class:
  Subroutine, function
Syntax:

  `CALL FTELL(UNIT, OFFSET)`
  `OFFSET = FTELL(UNIT)`

Arguments:

  OFFSET | Shall of type `INTEGER`.
  UNIT | Shall of type `INTEGER`.

Return value:
  In either syntax, OFFSET is set to the current offset of unit number UNIT, or to -1 if the unit is not currently open.
Example:

                PROGRAM test_ftell
                  INTEGER :: i
                  OPEN(10, FILE="temp.dat")
                  CALL ftell(10,i)
                  WRITE(*,*) i
                END PROGRAM

See also:
  FSEEK