PRB: Error 1200, ASSIGN Label Number Used In > 1 I/O Statement
PSS ID Number: Q11345
Article last modified on 02-09-1993

3.13 3.20 3.30 3.31

MS-DOS


----------------------------------------------------------------------
The information in this article applies to:

 - Microsoft FORTRAN for MS-DOS, versions 3.13, 3.2, 3.3, 3.31
----------------------------------------------------------------------

SYMPTOMS
   An attempt to run an application fails and the application
   generates the following message:

      ? Error: Data format error in file USER
        Error Code 1200, Status  000E

CAUSE
   The application uses the ASSIGN statement to associate a label
   number with a symbolic name and uses the label number in two or
   more READ or WRITE statements.

RESOLUTION
   To work around this problem, modify the source code to use the
   associated symbolic name in all references to a given label number.

STATUS
   Microsoft has confirmed this to be a problem in FORTRAN versions
   3.13, 3.2, 3.3, and 3.31 for MS-DOS. This problem was corrected in
   FORTRAN version 4.0 for MS-DOS.

More Information:

The following code demonstrates this problem.

Sample Code #1
--------------

C Compile options needed: None

      PROGRAM TEST
      ASSIGN 4 TO I
      WRITE(*, 4) ' HELLO'
      WRITE(*, 4) ' HELLO'
4     FORMAT(A6)
      END

The following code example does not generate the run-time error.

Sample Code #2
--------------

C Compile options needed: None

      PROGRAM TEST
      ASSIGN 4 TO I
      WRITE(*, I) ' HELLO'
      WRITE(*, I) ' HELLO'
4     FORMAT(A6)
      END

Additional reference words: 3.13 3.20 3.30 3.31

=============================================================================

Copyright Microsoft Corporation 1993.
