]> git.ipfire.org Git - thirdparty/gcc.git/commit
backport: re PR fortran/84506 (INQUIRE(pos=) always sets pos=0 with -fdefault-integer-8)
authorJerry DeLisle <jvdelisle@gcc.gnu.org>
Fri, 23 Feb 2018 19:53:04 +0000 (19:53 +0000)
committerJerry DeLisle <jvdelisle@gcc.gnu.org>
Fri, 23 Feb 2018 19:53:04 +0000 (19:53 +0000)
commit6864b9f8bd204129b7c8939b9c800cf10eee3ab5
tree0860644a2984c8bce76fd607c2a370937bbc0a78
parent3414ac756adff4fd0a59b4e6c3312510c6aaab37
backport: re PR fortran/84506 (INQUIRE(pos=) always sets pos=0 with -fdefault-integer-8)

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

Backport from trunk
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: r257951
gcc/fortran/ChangeLog
gcc/fortran/trans-io.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/inquire_19.f90 [new file with mode: 0644]