diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-12-28 01:41:57 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-12-28 01:41:57 +0000 |
| commit | 2139a2ba0df8741842ce2cdba04746dbecc44889 (patch) | |
| tree | fb09988e51ee37b22bec684247468ff4f5321c4d | |
| parent | fdacc46b1158c1f54bb8ea0b2b85dcd319f54f3b (diff) | |
| download | ppe42-gcc-2139a2ba0df8741842ce2cdba04746dbecc44889.tar.gz ppe42-gcc-2139a2ba0df8741842ce2cdba04746dbecc44889.zip | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@120235 138bc75d-0d04-0410-961f-82ee72b054a4
| -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 9d0be233c1f..fd4da6d307f 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 00000000000..362746bae94 --- /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 5284f2ab145..00306a0a7b4 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 73c4979f2a9..9e83561773e 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" } |
