OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Allow opening file on multiple units

Browse Source 
As of Fortran 2018 it's allowed to open the same file on multiple
units.

libgfortran/ChangeLog:

2019-05-15  Janne Blomqvist  <jb@gcc.gnu.org>

	PR fortran/90461
        * io/open.c (new_unit): Don't check if the file is already open
	for F2018.

testsuite/ChangeLog:

2019-05-15  Janne Blomqvist  <jb@gcc.gnu.org>

	PR fortran/90461
        * gfortran.dg/open_errors_2.f90: Add -std=f2008, adjust line number.
	* gfortran.dg/open_errors_3.f90: New test.

From-SVN: r271260
This commit is contained in:
Janne Blomqvist 2019-05-15 21:02:36 +03:00
parent 40c81f845c
commit 0c15ebf1bd
5 changed files with 27 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,9 @@
2019-05-15 Janne Blomqvist <jb@gcc.gnu.org>
PR fortran/90461
* gfortran.dg/open_errors_2.f90: Add -std=f2008, adjust line number.
* gfortran.dg/open_errors_3.f90: New test.
2019-05-15 H.J. Lu <hongjiu.lu@intel.com>
PR target/89021

3
gcc/testsuite/gfortran.dg/open_errors_2.f90
View File

@ -1,6 +1,7 @@
! { dg-do run }
! { dg-options "-std=f2008" }
! { dg-shouldfail "runtime error" }
! { dg-output "At line 13.*File already opened" }
! { dg-output "At line 14.*File already opened" }
! PR 65563 - this used to segfault for some versions.
variable_1 = 0

11
gcc/testsuite/gfortran.dg/open_errors_3.f90 Normal file
View File

@ -0,0 +1,11 @@
! { dg-do run }
! PR 90461 Open file on multiple units as of F2018
program openmult
implicit none
character(len=*), parameter :: fname="pr90461.dat"
open(10, file=fname, form="unformatted")
open(11, file=fname, form="unformatted")
close(11)
close(10, status="delete")
end program openmult
! { dg-final { remote_file build delete "pr90461.dat" } }

6
libgfortran/ChangeLog
View File

@ -1,3 +1,9 @@
2019-05-15 Janne Blomqvist <jb@gcc.gnu.org>
PR fortran/90461
* io/open.c (new_unit): Don't check if the file is already open
for F2018.
2019-05-02 Jakub Jelinek <jakub@redhat.com>
* Makefile.am (gfor_cdir): Remove $(MULTISUBDIR).

3
libgfortran/io/open.c
View File

@ -515,7 +515,8 @@ new_unit (st_parameter_open *opp, gfc_unit *u, unit_flags *flags)
Do not error if opening file preconnected to stdin, stdout, stderr. */
u2 = NULL;
if ((opp->common.flags & IOPARM_OPEN_HAS_FILE) != 0)
if ((opp->common.flags & IOPARM_OPEN_HAS_FILE) != 0
&& !(compile_options.allow_std & GFC_STD_F2018))
u2 = find_file (opp->file, opp->file_len);
if (u2 != NULL
&& (options.stdin_unit < 0 || u2->unit_number != options.stdin_unit)