re PR fortran/84506 (INQUIRE(pos=) always sets pos=0 with -fdefault-integer-8)
authorJerry DeLisle <jvdelisle@gcc.gnu.org>
Fri, 23 Feb 2018 18:40:14 +0000 (18:40 +0000)
committerJerry DeLisle <jvdelisle@gcc.gnu.org>
Fri, 23 Feb 2018 18:40:14 +0000 (18:40 +0000)
commit55ebc31f3d521e66059e6f83b9884a0ae8d941ab
treee8a7dfa08516c02e567c564677b964751665f09d
parent59b2c1346ff67fde282beebca8ae5396fbdcc6f2
re PR fortran/84506 (INQUIRE(pos=) always sets pos=0 with -fdefault-integer-8)

2018-02-23  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

PR fortran/84506
* trans-io.c (set_parameter_value_inquire): Adjust range check of
negative unit values for kind=8 units to the kind=4 negative limit.

* gfortran.dg/inquire_19.f90: New test.

From-SVN: r257941
gcc/fortran/ChangeLog
gcc/fortran/trans-io.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/inquire_19.f90 [new file with mode: 0644]