BUG: GetStrQQ Leaves Characters in Standard Output

MORE INFORMATION

Contrary to the documentation, there is no advantage to using GetStrQQ rather than READ for standard I/O.

Run the sample code below, and enter any string when prompted. The output has a blank line under "Enter string: abc" but not under "Enter another string: abc", and in addition there is an extra space in front of the first 1000. GetStrQQ produces the extra linefeed and space characters, whereas the standard READ statement does not.

Output

Sample Code

C No compiler options required

        include 'flib.fi'
        include 'flib.fd'
        character string*10

        write(*,'('' Enter string: ''\)')
        len = getstrqq(string)

        do i = 1,2
          write(*,*)  i*1000
        end do

        write(*,'('' Enter another string: ''\)')
        read(*,'(a)')  string

        do i = 1,2
          write(*,*)  i*1000
        end do
        end