From 554fd8c5195424bdbcabf5de30fdc183aba391bd Mon Sep 17 00:00:00 2001
From: upstream source tree <ports@midipix.org>
Date: Sun, 15 Mar 2015 20:14:05 -0400
Subject: obtained gcc-4.6.4.tar.bz2 from upstream website; verified
 gcc-4.6.4.tar.bz2.sig; imported gcc-4.6.4 source tree from verified upstream
 tarball.

downloading a git-generated archive based on the 'upstream' tag
should provide you with a source tree that is binary identical
to the one extracted from the above tarball.

if you have obtained the source via the command 'git clone',
however, do note that line-endings of files in your working
directory might differ from line-endings of the respective
files in the upstream repository.
---
 gcc/testsuite/gfortran.dg/io_constraints_2.f90 | 77 ++++++++++++++++++++++++++
 1 file changed, 77 insertions(+)
 create mode 100644 gcc/testsuite/gfortran.dg/io_constraints_2.f90

(limited to 'gcc/testsuite/gfortran.dg/io_constraints_2.f90')

diff --git a/gcc/testsuite/gfortran.dg/io_constraints_2.f90 b/gcc/testsuite/gfortran.dg/io_constraints_2.f90
new file mode 100644
index 000000000..42aba66a8
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/io_constraints_2.f90
@@ -0,0 +1,77 @@
+! { dg-do compile }
+! { dg-options "-std=f95" }
+! Part II of the test  of the IO constraints patch, which fixes PRs:
+! PRs 25053, 25063, 25064, 25066, 25067, 25068, 25069, 25307 and 20862.
+! Modified2006-07-08 to check the patch for PR20844.
+!
+! Contributed by Paul Thomas  <pault@gcc.gnu.org>
+!
+
+module global
+
+  integer :: modvar
+  namelist /NL/ modvar
+
+contains
+
+  subroutine foo (i)
+    integer :: i
+    write (*, 100) i
+ 100 format (1h , "i=", i6) ! { dg-warning "H format specifier" }
+  end subroutine foo
+
+end module global
+
+ use global
+ integer :: a,b, c(20)
+ integer(8) :: ierr
+ character(80) :: buffer(3)
+
+
+! Appending to a USE associated namelist is an extension.
+
+ NAMELIST /NL/ a,b                              ! { dg-error "already is USE associated" }
+
+ a=1 ; b=2
+
+ write(*, NML=NL) z                             !  { dg-error "followed by IO-list" }
+!Was correctly picked up before patch.
+ print NL, z                                    !  { dg-error "PRINT namelist at \\(1\\) is an extension" }
+!
+! Not allowed with internal unit
+!Was correctly picked up before patch.
+ write(buffer, NML=NL)                          !  { dg-error "Internal file at \\(1\\) with namelist" }
+!Was correctly picked up before patch.
+ write(buffer, fmt='(i6)', REC=10) a            !  { dg-error "REC tag" }
+ write(buffer, fmt='(i6)', END=10) a            !  { dg-error "END tag" }
+
+! Not allowed with REC= specifier
+!Was correctly picked up before patch.
+ read(10, REC=10, END=100)                      !  { dg-error "END tag is not allowed" }
+ write(*, *, REC=10)                            !  { dg-error "FMT=" }
+
+! 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" }
+
+ write(1, fmt='(i6)', advance='YES', size = c(1)) a ! { dg-error "output" }
+ write(1, fmt='(i6)', advance='YES', eor = 100) a   ! { dg-error "output" }
+
+ read(1, fmt='(i6)', advance='YES', size = c(1)) a  ! { dg-error "ADVANCE = 'NO'" }
+ read(1, fmt='(i6)', advance='YES', eor = 100) a    ! { dg-error "ADVANCE = 'NO'" }
+
+ READ(1, fmt='(i6)', advance='NO', size = buffer) a ! { dg-error "INTEGER" }
+!Was correctly picked up before patch. -correct syntax error
+ READ(1, fmt='(i6)', advance='YES', size = 10) a    ! { dg-error "Invalid value for SIZE specification" }
+
+ READ(1, fmt='(i6)', advance='MAYBE')               !  { dg-error "YES or NO" }
+
+100 continue
+200 format (2i6)
+ END
+
+! { dg-final { cleanup-modules "global" } }
-- 
cgit v1.2.3