From: hp@138bc75d-0d04-0410-961f-82ee72b054a4 <hp@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Sat, 24 Apr 2010 17:00:52 +0000 (+0000)
Subject: 	PR fortran/43832
X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=commitdiff_plain;h=b4d7eacccac9947bae690cd8eb6e9358995394c9;hp=3f1863254a35fca88825ef6d71ef464ebf105efa;ds=sidebyside

	PR fortran/43832
	* gfortran.dg/fgetc_3.f90: Delete bogus test.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@158688 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index ae0519b041a..26ae3d0bee0 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2010-04-24  Hans-Peter Nilsson  <hp@axis.com>
+
+	PR fortran/43832
+	* gfortran.dg/fgetc_3.f90: Delete bogus test.
+
 2010-04-24  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
 	PR fortran/43832
diff --git a/gcc/testsuite/gfortran.dg/fgetc_2.f90 b/gcc/testsuite/gfortran.dg/fgetc_2.f90
deleted file mode 100644
index 6dd12c4e242..00000000000
--- a/gcc/testsuite/gfortran.dg/fgetc_2.f90
+++ /dev/null
@@ -1,39 +0,0 @@
-! Testcase for the FGETC and FPUTC intrinsics
-! { dg-do run }
-  character(len=5) s
-  integer st
-
-  s = "12345"
-  open(10,status="scratch")
-  write(10,"(A)") "abcde"
-  rewind(10)
-  st = fgetc(10,s)
-  if ((st /= 0) .or. (s /= "a    ")) call abort
-  st = fgetc(10,s)
-  close(10)
-
-  open(10,status="scratch")
-  s = "12345"
-  st = fputc(10,s)
-  if (st /= 0) call abort
-  st = fputc(10,"2")
-  if (st /= 0) call abort
-  st = fputc(10,"3 ")
-  if (st /= 0) call abort
-  rewind(10)
-  st = fgetc(10,s)
-  if (s(1:1) /= "1") call abort
-  st = fgetc(10,s)
-  if (s(1:1) /= "2") call abort
-  st = fgetc(10,s)
-  if ((s(1:1) /= "3") .or. (st /= 0)) call abort
-  st = fgetc(10,s)
-  if (st /= -1) call abort
-  close (10)
-
-! FGETC and FPUTC on units not opened should not work
-  st = fgetc(12,s)
-  if (st /= -1) call abort
-  st = fputc(12,s)
-  if (st /= -1) call abort
-  end