* 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
+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
+++ /dev/null
-! 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