diff options
| author | Hans-Peter Nilsson <hp@axis.com> | 2010-04-24 17:00:52 +0000 |
|---|---|---|
| committer | Hans-Peter Nilsson <hp@gcc.gnu.org> | 2010-04-24 17:00:52 +0000 |
| commit | 1cef01a08678826d1c58fb1f47879e280872e8e6 (patch) | |
| tree | 8191a88d5a1ec31706aa50367afdbec93eec746f /gcc | |
| parent | 01d42eb543ba46aa8329ac3d5dee753a80472327 (diff) | |
| download | gcc-1cef01a08678826d1c58fb1f47879e280872e8e6.zip gcc-1cef01a08678826d1c58fb1f47879e280872e8e6.tar.gz gcc-1cef01a08678826d1c58fb1f47879e280872e8e6.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/fgetc_3.f90 | 34 |
2 files changed, 5 insertions, 34 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index ae0519b..26ae3d0 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 3706b67a..0000000 --- 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 |