re PR fortran/83525 (open(newunit=funit, status="scratch") fails if an internal…

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

2018-01-12  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

        PR libgfortran/83525
        * gfortran.dg/newunit_5.f90: New test.

From-SVN: r256595

gcc/testsuite/ChangeLog

+2018-01-12  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR libgfortran/83525
+	* gfortran.dg/newunit_5.f90: New test.
+
 2018-01-12  Vladimir Makarov  <vmakarov@redhat.com>
 
 	PR rtl-optimization/80481

gcc/testsuite/gfortran.dg/newunit_5.f90.f90

+! { dg-do run )
+! PR83525 Combination of newunit and internal unit was failing.
+program main
+  integer :: funit
+  logical :: isopen
+  integer :: this, another
+  character(len=:), allocatable :: message
+  
+  message = "12"
+  read(message, *) this
+  if (this.ne.12) call abort
+  
+  open(newunit=funit, status="scratch")
+  write(funit, *) "13"
+  rewind(funit)
+  read(funit, *) another
+  !write(*,*) another
+  close(funit)
+  if (another.ne.13) call abort
+end