diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2018-02-18 15:32:39 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2018-02-18 15:32:39 +0000 |
| commit | d5efbf3fd5e1b872524dfa2439e5163decf1614f (patch) | |
| tree | c964e1236096628ad7e54d9596ccc526e960313f /gcc | |
| parent | 9bbbdb49b4f8b0657893acc8f23ca952745d93ae (diff) | |
| download | gcc-d5efbf3fd5e1b872524dfa2439e5163decf1614f.zip gcc-d5efbf3fd5e1b872524dfa2439e5163decf1614f.tar.gz gcc-d5efbf3fd5e1b872524dfa2439e5163decf1614f.tar.bz2 | |
re PR fortran/84412 (Erroneous "Inquire statement identifies an internal file" error)
2018-02-18 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/84412
* io/transfer.c (finalize_transfer): After completng an internal unit
I/O operation, clear internal_unit_kind.
From-SVN: r257791
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/inquire_18.f90 | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/inquire_18.f90 b/gcc/testsuite/gfortran.dg/inquire_18.f90 new file mode 100644 index 0000000..9829688 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/inquire_18.f90 @@ -0,0 +1,11 @@ +! { dg-do run } +! PR84412 Wrong "Inquire statement identifies an internal file" error +program bug + implicit none + integer :: i + character(len=1) :: s + write (s,'(i1)') 0 + open(newUnit=i,file='inquire_18.txt',status='unknown') + inquire(unit=i) + close(i, status="delete") +end program bug |