diff options
| author | Janne Blomqvist <jb@gcc.gnu.org> | 2010-04-01 23:51:45 +0300 |
|---|---|---|
| committer | Janne Blomqvist <jb@gcc.gnu.org> | 2010-04-01 23:51:45 +0300 |
| commit | b879c108b22aac997a6ac06de2bf5ca2b41e6f46 (patch) | |
| tree | 8d1943a03f30a22bbdc1e27eb7d77d0ac4227a38 /gcc | |
| parent | abfb38d73910f62fa6785c0f0d04462a5aefd142 (diff) | |
| download | gcc-b879c108b22aac997a6ac06de2bf5ca2b41e6f46.zip gcc-b879c108b22aac997a6ac06de2bf5ca2b41e6f46.tar.gz gcc-b879c108b22aac997a6ac06de2bf5ca2b41e6f46.tar.bz2 | |
PR libfortran/43605 FTELL intrinsic, take 2.
Co-Authored-By: Dominique d'Humieres <dominiq@lps.ens.fr>
From-SVN: r157932
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/ftell_3.f90 | 11 |
2 files changed, 16 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 8cefbf4..16b901b 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2010-04-01 Janne Blomqvist <jb@gcc.gnu.org> + Dominique d'Humieres <dominiq@lps.ens.fr> + + PR libfortran/43605 + * gfortran.dg/ftell_3.f90: Enhance test case by reading more. + 2010-04-01 Dodji Seketeli <dodji@redhat.com> PR debug/43325 diff --git a/gcc/testsuite/gfortran.dg/ftell_3.f90 b/gcc/testsuite/gfortran.dg/ftell_3.f90 index 1981678..c16afe8 100644 --- a/gcc/testsuite/gfortran.dg/ftell_3.f90 +++ b/gcc/testsuite/gfortran.dg/ftell_3.f90 @@ -1,6 +1,7 @@ ! { dg-do run } ! PR43605 FTELL intrinsic returns incorrect position -! Contributed by Janne Blomqvist and Manfred Schwarb +! Contributed by Janne Blomqvist, Manfred Schwarb +! and Dominique d'Humieres. program ftell_3 integer :: i character(len=99) :: buffer @@ -15,5 +16,13 @@ program ftell_3 if(i /= 7) then call abort() end if + read(10,'(a)') buffer + if (trim(buffer) /= "789") then + call abort() + end if + call ftell(10,i) + if (i /= 11) then + call abort() + end if close(10) end program ftell_3 |