FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
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
This commit is contained in:
Jerry DeLisle 2006-12-28 01:41:57 +00:00
parent cf79465213
commit 5fe1967fed
4 changed files with 19 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,10 @@
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

10
gcc/testsuite/gfortran.dg/inquire_iolength.f90 Normal file
View file

@ -0,0 +1,10 @@
! { 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

1
gcc/testsuite/gfortran.dg/io_constraints_1.f90
View file

@ -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.

2
gcc/testsuite/gfortran.dg/io_constraints_2.f90
View file

@ -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" }