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

+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

gcc/testsuite/gfortran.dg/fgetc_3.f90

-! 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