$ cat devnull-readback.f
      character*20 foo
      open(10,file="/dev/null")
      write(10,'(A)') "Hello"
      rewind(10)
      read(10,'(A)',end=100) foo
      print *,foo
      call abort
 100  continue
      end
$ gfortran devnull-readback.f
$ ./a.out
 Hello
Aborted
$ gfortran -v ; gfortran -dumpmachine
Using built-in specs.
Configured with: ../gcc-4.0-20050116/configure --prefix=/home/zfkts
--enable-languages=c,f95
Thread model: posix
gcc version 4.0.0 20050116 (experimental)
ia64-unknown-linux-gnu
$ g77 devnull-readback.f
$ ./a.out

Not really serious, but amusing :-)

        Thomas

-- 
           Summary: reading back from /dev/null
           Product: gcc
           Version: 4.0.0
            Status: UNCONFIRMED
          Severity: minor
          Priority: P2
         Component: libfortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: Thomas dot Koenig at online dot de
                CC: gcc-bugs at gcc dot gnu dot org


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=19478

Reply via email to