diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-12-28 01:41:57 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-12-28 01:41:57 +0000 |
| commit | 5fe1967fed91ec271e1cfceee502699a79227302 (patch) | |
| tree | fb09988e51ee37b22bec684247468ff4f5321c4d /gcc | |
| parent | cf7946521395a76bafc978c02b43e78536a71c0c (diff) | |
| download | gcc-5fe1967fed91ec271e1cfceee502699a79227302.zip gcc-5fe1967fed91ec271e1cfceee502699a79227302.tar.gz gcc-5fe1967fed91ec271e1cfceee502699a79227302.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/inquire_iolength.f90 | 10 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/io_constraints_1.f90 | 1 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/io_constraints_2.f90 | 2 |
4 files changed, 19 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 9d0be23..fd4da6d 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -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 diff --git a/gcc/testsuite/gfortran.dg/inquire_iolength.f90 b/gcc/testsuite/gfortran.dg/inquire_iolength.f90 new file mode 100644 index 0000000..362746b --- /dev/null +++ b/gcc/testsuite/gfortran.dg/inquire_iolength.f90 @@ -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 diff --git a/gcc/testsuite/gfortran.dg/io_constraints_1.f90 b/gcc/testsuite/gfortran.dg/io_constraints_1.f90 index 5284f2ab..00306a0 100644 --- a/gcc/testsuite/gfortran.dg/io_constraints_1.f90 +++ b/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. diff --git a/gcc/testsuite/gfortran.dg/io_constraints_2.f90 b/gcc/testsuite/gfortran.dg/io_constraints_2.f90 index 73c4979..9e83561 100644 --- a/gcc/testsuite/gfortran.dg/io_constraints_2.f90 +++ b/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" } |