re PR fortran/40638 (RTE: "Unit number in I/O statement too large" -- fails with any low value)

2009-07-03  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/40638
	* gfortran.dg/unit_1.f90: New test.

From-SVN: r149222

gcc/testsuite/ChangeLog

+2009-07-03  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR fortran/40638
+	* gfortran.dg/unit_1.f90: New test.
+
 2009-07-03  Jason Merrill  <jason@redhat.com>
 
 	* g++.dg/template/pure1.C: Expect another error.

gcc/testsuite/gfortran.dg/unit_1.f90

+! { dg-do run }
+! PR40638 Run Time Error: Unit number in I/O statement too large
+      program main
+      integer(kind=2) ::  lun, anum
+      integer(kind=1) ::  looney, bin
+      lun  = 12
+      anum = 5
+      looney = 42
+      bin = 23
+      open (lun, status='scratch')
+      write(lun,*) anum
+      anum = 0
+      rewind(lun)
+      read (lun, *) anum
+      if (anum.ne.5) call abort
+      open (looney, status='scratch')
+      write(looney,*)bin
+      bin = 0
+      rewind (looney)
+      read (looney,*)bin
+      if (bin.ne.23) call abort
+      close (lun)
+      close (looney)
+      end