re PR libfortran/30014 (INQUIRE (iolength = xx) limited to kind=4)

2006-12-27  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/30014
	* gfortran.dg/io_constraints_1.f90: Update test.
	* gfortran.dg/io_constraints_2.f90: Update test.
	* gfortran.dg/inquire_iolength.f90: Ne test.

From-SVN: r120235

gcc/testsuite/ChangeLog

+2006-12-27  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR fortran/30014
+	* gfortran.dg/io_constraints_1.f90: Update test.
+	* gfortran.dg/io_constraints_2.f90: Update test.
+	* gfortran.dg/inquire_iolength.f90: Ne test.
+
 2006-12-27  Paul Thomas  <pault@gcc.gnu.org>
 
 	PR fortran/20896

gcc/testsuite/gfortran.dg/inquire_iolength.f90

+! { dg-do compile}
+! { dg-options "-std=f95" }
+! PR30014 IOLENGTH does not handle KIND=8.  This patch checks the constraints.
+! Submitted by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+! F95 Standard 9.6, R923
+integer (kind=4) small, x
+integer (kind=8) large
+inquire (iolength=small) x
+inquire (iolength=large) x ! { dg-error "requires default INTEGER" }
+end

gcc/testsuite/gfortran.dg/io_constraints_1.f90

@@ -54,7 +54,6 @@ end module global
 ! R912
 !Was correctly picked up before patch.
  write(6, NML=NL, iostat = ierr)                ! { dg-warning "requires default INTEGER" }
- READ(1, fmt='(i6)', advance='NO', size = ierr) ! { dg-warning "requires default INTEGER" }
 
 ! Constraints
 !Was correctly picked up before patch.

gcc/testsuite/gfortran.dg/io_constraints_2.f90

@@ -53,6 +53,8 @@ end module global
 ! Not allowed with an ADVANCE=specifier
  READ(buffer, fmt='(i6)', advance='YES') a      ! { dg-error "internal file" }
  READ(1, NML=NL, advance='YES')                 ! { dg-error "NAMELIST IO is not allowed" }
+ 
+ READ(1, fmt='(i6)', advance='NO', size = ierr) ! { dg-error "requires default INTEGER" }
 
  READ(1, advance='YES')                         ! { dg-error "must appear with an explicit format" }