From 1cef01a08678826d1c58fb1f47879e280872e8e6 Mon Sep 17 00:00:00 2001
From: Hans-Peter Nilsson <hp@axis.com>
Date: Sat, 24 Apr 2010 17:00:52 +0000
Subject: [PATCH] re PR fortran/43832 (OPEN statement not diagnosing missing
unit number)
PR fortran/43832
* gfortran.dg/fgetc_3.f90: Delete bogus test.
From-SVN: r158688
---
gcc/testsuite/ChangeLog | 5 ++++
gcc/testsuite/gfortran.dg/fgetc_3.f90 | 34 ---------------------------
2 files changed, 5 insertions(+), 34 deletions(-)
delete mode 100644 gcc/testsuite/gfortran.dg/fgetc_3.f90
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index ae0519b041aa..26ae3d0bee02 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_3.f90 b/gcc/testsuite/gfortran.dg/fgetc_3.f90
deleted file mode 100644
index 3706b67a81fc..000000000000
--- a/gcc/testsuite/gfortran.dg/fgetc_3.f90
+++ /dev/null
@@ -1,34 +0,0 @@
-! Testcase for the FGETC and FPUTC intrinsics
-! { dg-do compile }
- character(len=5) s
- integer st
-
- s = "12345"
- open(status="scratch")
- write(*,"(A)") "abcde"
- rewind(10)
- st = fget(s)
- if ((st /= 0) .or. (s /= "a ")) call abort
- st = fget(s)
- close(10)
-
- open(status="scratch")
- s = "12345"
- st = fput(s)
- if (st /= 0) call abort
- st = fput("2")
- if (st /= 0) call abort
- st = fput("3 ")
- if (st /= 0) call abort
- rewind(10)
- st = fget(s)
- if (s(1:1) /= "1") call abort
- st = fget(s)
- if (s(1:1) /= "2") call abort
- st = fget(s)
- if ((s(1:1) /= "3") .or. (st /= 0)) call abort
- st = fget(s)
- if (st /= -1) call abort
- close (10)
-
- end
--
GitLab