[patch, libfortran] PR32784 CONIN$, CONOUT$, and CONERR$ for Cygwin and mingw

[Jerry DeLisle]

Jerry DeLisle wrote:
> The attached patch provides mapping the special file names to standard 
> IO.  This is an extension requested quite a ways back.
> 
> Applied and tested / regression tested on Cygwin running on WinNT 
> workstation. I do not have a working mingw set-up and would much 
> appreciate someone building and testing for that system.
> 
> OK for trunk if so tested and passes?
> 
Here is a simple test case i have used.  Redirection on the output apears to 
work as well.

       character(25) :: astring
       open(unit=29,file='CONOUT$')
       write(29,100)
100   format('Hello, world!')
       open(unit=39,file='CONERR$')
       write(39,200)
200   format('This goes to conerr$!')
       open(unit=49,file='CONIN$')
       read(49,'(a)') astring
       write(29,'(a)') astring
       end

Regards,

Jerry