From 75152bcb194ff350853ac5cc13a1e04ff82c7f81 Mon Sep 17 00:00:00 2001
From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Sun, 13 Sep 2009 03:44:34 +0000
Subject: [PATCH] re PR fortran/41328 (bad iostat when reading DOS file in a
character array (non-advancing))
2009-09-12 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/41328
* gfortran.dg/cr_lf.f90: New test.
From-SVN: r151666
---
gcc/testsuite/ChangeLog | 5 ++++
gcc/testsuite/gfortran.dg/cr_lf.f90 | 36 +++++++++++++++++++++++++++++
2 files changed, 41 insertions(+)
create mode 100644 gcc/testsuite/gfortran.dg/cr_lf.f90
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 2a0705a45b3a..cc1b26b3b2e3 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2009-09-12 Jerry DeLisle <jvdelisle@gcc.gnu.org>
+
+ PR libgfortran/41328
+ * gfortran.dg/cr_lf.f90: New test.
+
2009-09-11 Michael Matz <matz@suse.de>
PR middle-end/41275
diff --git a/gcc/testsuite/gfortran.dg/cr_lf.f90 b/gcc/testsuite/gfortran.dg/cr_lf.f90
new file mode 100644
index 000000000000..855e70360953
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/cr_lf.f90
@@ -0,0 +1,36 @@
+! { dg-do run }
+! { dg-options "-fbackslash" }
+! PR41328 and PR41168 Improper read of CR-LF sequences.
+! Test case prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org>
+program main
+ implicit none
+ integer :: iostat, n_chars_read
+ character(len=1) :: buffer(64) = ""
+ open( unit=10, form="formatted", access="stream", status="scratch")
+ write(10, fmt="(a)", advance="no") "a\rb\rc\r"
+ rewind(10)
+
+ read( unit=10, fmt='(64A)', advance='NO', iostat=iostat, &
+ size=n_chars_read ) buffer
+ if (n_chars_read.ne.1) call abort
+ if (any(buffer(1:n_chars_read).ne."a")) call abort
+ if (.not.is_iostat_eor(iostat)) call abort
+
+ read( unit=10, fmt='(64A)', advance='NO', iostat=iostat, &
+ size=n_chars_read ) buffer
+ if (n_chars_read.ne.1) call abort
+ if (any(buffer(1:n_chars_read).ne."b")) call abort
+ if (.not.is_iostat_eor(iostat)) call abort
+
+ read( unit=10, fmt='(64A)', advance='NO', iostat=iostat, &
+ size=n_chars_read ) buffer
+ if (n_chars_read.ne.1) call abort
+ if (any(buffer(1:n_chars_read).ne."c")) call abort
+ if (.not.is_iostat_eor(iostat)) call abort
+
+ read( unit=10, fmt='(64A)', advance='NO', iostat=iostat, &
+ size=n_chars_read ) buffer
+ if (n_chars_read.ne.0) call abort
+ if (any(buffer(1:n_chars_read).ne."a")) call abort
+ if (.not.is_iostat_end(iostat)) call abort
+end program main
--
GitLab