FIX: PAUSE Command with Input Redirection in FORTRAN

Retired KB Content Disclaimer

View products that this article applies to.

This article was previously published under Q67098

SYMPTOMS

Beginning with Microsoft FORTRAN version 4.0, the PAUSE command allows you to execute operating system commands while program execution is suspended. When program input is redirected from the keyboard to a file, the PAUSE statement does not work correctly if the program READs from the redirection file or if the program contains multiple PAUSE statements.

Back to the top

STATUS

Microsoft has confirmed this to be a problem in FORTRAN versions 4.x and 5.0. This problem was corrected in FORTRAN version 5.1.

Back to the top

MORE INFORMATION

When input is redirected from a file and the only data read from the file is one MS-DOS command for a PAUSE statement, the program works correctly. The following short program gives an example:

Back to the top

Sample Code

      write(*,*) 'Before PAUSE'
      pause
      write (*,*) 'After PAUSE'
      end

Data file, TEST.DAT:

   Ver

Command line:

   C:\> TEST < TEST.DAT

Output:

   Before PAUSE
   Pause - Please enter a blank line (to continue) or a
     DOS command.

   MS-DOS Version x.xx

   After PAUSE

If another PAUSE statement is added to the program, only the command for the first PAUSE is executed. The program appears to read to the end of the redirection file when it encounters the first PAUSE. If a READ statement is added to the program after the PAUSE statement, as in the next example, the program again reads to the end of the file. In this case, ERROR 6501 is generated. Code:

      integer i
      write(*,*) 'Before PAUSE'
      pause
      write (*,*) 'After PAUSE'
      read(*,*) i
      write (*,*) i
      end

Data:

Ver
1

Output:

Before PAUSE
Pause - Please enter a blank line (to continue) or a DOS command.

MS-DOS Version x.xx

After PAUSE
run-time error F6501: READ(CON)
- end of file encountered

When the READ statement is before the PAUSE statement, the DOS command is not executed:

Code:

      integer i
      read(*,*) i
      write (*,*) i
      write(*,*) 'Before PAUSE'
      pause
      write (*,*) 'After PAUSE'
      end

Data:

1
Ver

Output:

1

Before PAUSE
Pause - Please enter a blank line (to continue) or a

DOS command.

After PAUSE

These problems are caused by the PAUSE command not reading data from the redirection file in the same way a READ statement would.

Back to the top

Workarounds

Do not use redirection on a program with more than one PAUSE statement or a combination of PAUSE and READ statements.

Use the OPEN command to open a file to be used for input for READ statements.

Use calls to the C functions SYSTEM or SPAWNLP instead of PAUSE statements to execute DOS commands. For more information on these functions, see page 86 of the "FORTRAN Advanced Topics" manual for version 5.00 or the DEMOEXEC.FOR program included with versions 4.x and 5.00 of FORTRAN.

This problem does not occur in earlier versions of FORTRAN because the functionality of the PAUSE statement is different. In earlier versions, you are not allowed to execute DOS commands after a PAUSE.

Back to the top

APPLIES TO

Microsoft FORTRAN Compiler 4.0
Microsoft FORTRAN Compiler 4.01
Microsoft FORTRAN Compiler 4.1
Microsoft FORTRAN Compiler 5.0

Back to the top

kbbug kbfix KB67098

Back to the top

Retired KB Content Disclaimer

This article was written about products for which Microsoft no longer offers support. Therefore, this article is offered "as is" and will no longer be updated.

Back to the top