diff options
| -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" } |