diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/fseek.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/fseek.f90 | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/fseek.f90 b/gcc/testsuite/gfortran.dg/fseek.f90 index 2649063ac59..9e3c7195a3a 100644 --- a/gcc/testsuite/gfortran.dg/fseek.f90 +++ b/gcc/testsuite/gfortran.dg/fseek.f90 @@ -1,4 +1,4 @@ -! { dg-do run { target fd_truncate } } +! { dg-do run } PROGRAM test_fseek INTEGER, PARAMETER :: SEEK_SET = 0, SEEK_CUR = 1, SEEK_END = 2, fd=10 @@ -12,6 +12,7 @@ PROGRAM test_fseek close (911) if (newline_length < 1 .or. newline_length > 2) call abort() + open(fd, status="scratch") ! expected position: one leading blank + 10 + newline WRITE(fd, *) "1234567890" IF (FTELL(fd) /= 11 + newline_length) CALL abort() |