This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Committed: fix regressions by requiring fd_truncate for streamio_9.f90 and widechar_IO_1.f90


My autotester for cris-elf running on trunk noticed these
regressions with revision 145575 compared to 145569:

gfortran.sum gfortran.dg/streamio_9.f90
gfortran.sum gfortran.dg/widechar_IO_1.f90

In gfortran.log I see:
...
PASS: gfortran.dg/streamio_9.f90  -O0  (test for excess errors)
Fortran runtime error: required ftruncate or chsize support not present
FAIL: gfortran.dg/streamio_9.f90  -O0  execution test
... (for all levels)
PASS: gfortran.dg/widechar_IO_1.f90  -O0  (test for excess errors)
Fortran runtime error: required ftruncate or chsize support not present
FAIL: gfortran.dg/widechar_IO_1.f90  -O0  execution test
... (for all levels)

While I was there, I also spotted the same signature for these
"new" test-cases (well, new since my last visit):
FAIL: gfortran.dg/namelist_48.f90  -O0  execution test
FAIL: gfortran.dg/namelist_49.f90  -O0  execution test
FAIL: gfortran.dg/namelist_50.f90  -O0  execution test
FAIL: gfortran.dg/namelist_51.f90  -O0  execution test
FAIL: gfortran.dg/namelist_52.f90  -O0  execution test
FAIL: gfortran.dg/namelist_56.f90  -O0  execution test
FAIL: gfortran.dg/read_repeat.f90  -O0  execution test
FAIL: gfortran.dg/utf8_1.f03  -O0  execution test
FAIL: gfortran.dg/utf8_2.f03  -O0  execution test
FAIL: gfortran.dg/widechar_IO_3.f90  -O0  execution test

All fixed as per below, committed as obvious.

Now, there's always the chance that the added libcalls is a
regression in performance, but I trust the gfortran people being
sufficiently aware of that so I can rule it out as a less
obvious reason.

Committed to trunk.

	* gfortran.dg/namelist_51.f90, gfortran.dg/utf8_2.f03,
	gfortran.dg/namelist_48.f90, gfortran.dg/read_repeat.f90,
	gfortran.dg/streamio_9.f90, gfortran.dg/widechar_IO_1.f90,
	gfortran.dg/namelist_50.f90, gfortran.dg/namelist_52.f90,
	gfortran.dg/utf8_1.f03, gfortran.dg/namelist_56.f90,
	gfortran.dg/namelist_49.f90: Gate test on effective_target
	fd_truncate.
	* gfortran.dg/widechar_IO_3.f90: Ditto.  Fix typo in comment.

Index: gfortran.dg/namelist_51.f90
===================================================================
--- gfortran.dg/namelist_51.f90	(revision 145579)
+++ gfortran.dg/namelist_51.f90	(working copy)
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! PR36676 Namelist comment problems
 ! test case from PR, reduced by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 program mem_nml
Index: gfortran.dg/utf8_2.f03
===================================================================
--- gfortran.dg/utf8_2.f03	(revision 145579)
+++ gfortran.dg/utf8_2.f03	(working copy)
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! { dg-options "-fbackslash" }
 ! Contributed by Tobias Burnus
 program test2
Index: gfortran.dg/namelist_48.f90
===================================================================
--- gfortran.dg/namelist_48.f90	(revision 145579)
+++ gfortran.dg/namelist_48.f90	(working copy)
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! { dg-options "-fbackslash" }
 ! PR36538 namelist failure with tabs preceding object name
       program check1
Index: gfortran.dg/read_repeat.f90
===================================================================
--- gfortran.dg/read_repeat.f90	(revision 145579)
+++ gfortran.dg/read_repeat.f90	(working copy)
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! PR39528 repeated entries not read when using list-directed input.
 ! Test case derived from reporters example.
 program rread
Index: gfortran.dg/streamio_9.f90
===================================================================
--- gfortran.dg/streamio_9.f90	(revision 145579)
+++ gfortran.dg/streamio_9.f90	(working copy)
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! PR29053 Stream IO test 9.
 ! Contributed by Jerry DeLisle <jvdelisle@gcc.gnu.org>.
 ! Test case derived from that given in PR by Steve Kargl.
Index: gfortran.dg/widechar_IO_1.f90
===================================================================
--- gfortran.dg/widechar_IO_1.f90	(revision 145579)
+++ gfortran.dg/widechar_IO_1.f90	(working copy)
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! Wide chracter I/O test 1, formatted and mixed kind
 ! Test case developed by Jerry DeLisle <jvdelisle@gcc.gnu.org>
 program test1
Index: gfortran.dg/namelist_50.f90
===================================================================
--- gfortran.dg/namelist_50.f90	(revision 145579)
+++ gfortran.dg/namelist_50.f90	(working copy)
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! PR36657 Namelist string constant immediately followed by comment
 program gfcbug79
   implicit none
Index: gfortran.dg/widechar_IO_3.f90
===================================================================
--- gfortran.dg/widechar_IO_3.f90	(revision 145579)
+++ gfortran.dg/widechar_IO_3.f90	(working copy)
@@ -1,5 +1,5 @@
-! { dg-do run }
-! Wide chracter I/O test 3, unformatted arrays
+! { dg-do run { target fd_truncate } }
+! Wide character I/O test 3, unformatted arrays
 ! Test case developed by Jerry DeLisle <jvdelisle@gcc.gnu.org>
 program test1
   integer, parameter :: k4 = 4
Index: gfortran.dg/namelist_52.f90
===================================================================
--- gfortran.dg/namelist_52.f90	(revision 145579)
+++ gfortran.dg/namelist_52.f90	(working copy)
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! PR36582 Namelist I/O error: Bogus "Cannot match namelist object"
 ! Test case derived from PR.
 module mod1
Index: gfortran.dg/utf8_1.f03
===================================================================
--- gfortran.dg/utf8_1.f03	(revision 145579)
+++ gfortran.dg/utf8_1.f03	(working copy)
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! { dg-options "-fbackslash" }
 ! Contributed by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 program test1
Index: gfortran.dg/namelist_56.f90
===================================================================
--- gfortran.dg/namelist_56.f90	(revision 145579)
+++ gfortran.dg/namelist_56.f90	(working copy)
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! PR37707 Namelist read of array of derived type incorrect
 ! Test case from Tobias Burnus
   IMPLICIT NONE
Index: gfortran.dg/namelist_49.f90
===================================================================
--- gfortran.dg/namelist_49.f90	(revision 145579)
+++ gfortran.dg/namelist_49.f90	(working copy)
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! { dg-options "-fbackslash" }
 ! PR36546 Namelist error with tab following a comma and newline
       program check1

brgds, H-P


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]