[Bug fortran/83525] open(newunit=funit, status="scratch") fails if an internal file (characters) was read previously.

[jvdelisle at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=83525

Jerry DeLisle <jvdelisle at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |ASSIGNED
   Last reconfirmed|                            |2017-12-22
                 CC|                            |jvdelisle at gcc dot gnu.org
           Assignee|unassigned at gcc dot gnu.org      |jvdelisle at gcc dot 
gnu.org
     Ever confirmed|0                           |1

--- Comment #1 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
This is working fine on latest trunk version 8

and on the 7 branch.

gcc version 7.2.1 20171216 (GCC)

$ gfc7 -static pr83525.f90 
$ ./a.out 
          13

This should be fixed on next release I believe planned for January.

I will add your test case to the test suite.