[Patch, FORTRAN] PR61933 Inquire on Internal Unit

[Jerry DeLisle]

Hi,

The attached patch adds a compile time check for negative unit numbers given in
an INQUIRE statement. A new test case is provided and one updated.

Regression tested on x86-64.

OK for trunk?


2014-09-06  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/61933
	* io.c (gfc_match_inquire): Add error check for negative unit.


	* gfortran.dg/negative_unit_check.f90: New test.
	* gfortran.dg/inquire_9.f90: Update test

	*libgfortran/io/lock.c: Fix a typo.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: pr61933.diff
Type: text/x-patch
Size: 1973 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20140906/0c2c2abc/attachment.bin>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: negative_unit_check.f90
Type: text/x-fortran
Size: 154 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20140906/0c2c2abc/attachment-0001.bin>