g77 Fortran direct access

g77 Fortran direct access

[ruediger.brand]

[-- Attachment #1: Type: text/plain, Size: 653 bytes --]

Hello,

i use the following g77-version (after a update of suse linux)

GNU Fortran (GCC) 3.3 20030226 (prerelease) (SuSE Linux)
Copyright (C) 2002 Free Software Foundation, Inc.

GNU Fortran comes with NO WARRANTY, to the extent permitted by law.
You may redistribute copies of GNU Fortran
under the terms of the GNU General Public License.
For more information about these matters, see the file named COPYING
or type the command `info -f g77 Copying'

and have now problems writing direct access files in fortran.

I use a test-programm (see attachment test.f) and get the iostat-error
102, but I don't know why.

Thank you in advanced

Ruediger Brand

[-- Attachment #2: test.f --]
[-- Type: application/octet-stream, Size: 570 bytes --]

      PROGRAM TEST
C
      REAL PUFFER(10)
C
      DO 4 I =1,10
         PUFFER(I) = I
 4    CONTINUE
C
      OPEN(UNIT=10,IOSTAT=IOS,ERR=10,FILE='CLICFI1',                
     +     STATUS='NEW',ACCESS='DIRECT',RECL=80)                            
C
      Do 5 I=1,8
         WRITE (10,REC=I,ERR=100,IOSTAT=IOS)                             
     +      (PUFFER(I),I=1,10) 
C
 5    CONTINUE
      CLOSE(10)
C
 10   WRITE(*,*) 'Fehler beim Oeffnen Direct Access ',IOS
      STOP
C
 100  WRITE(*,*) 'Fehler beim Schreiben Direct Access ',IOS
C
      STOP
      END
      

RE: g77 Fortran direct access

[bud davis]

Yes indeed, you have found a bug in g77. It was a regression from
gcc-2.95.

The file was being opened "FORMATTED" giving you the error.

 "formatted io not allowed",   /* 102 */


This bug is fixed in all released versions > 3.2.3    

For more info:

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


regards,
bud davis


> Hello,
> 
> i use the following g77-version (after a update of suse linux)
> 
> GNU Fortran (GCC) 3.3 20030226 (prerelease) (SuSE Linux)
> Copyright (C) 2002 Free Software Foundation, Inc.
> 
> GNU Fortran comes with NO WARRANTY, to the extent permitted by law.
> You may redistribute copies of GNU Fortran
> under the terms of the GNU General Public License.
> For more information about these matters, see the file named COPYING
> or type the command `info -f g77 Copying'
> 
> and have now problems writing direct access files in fortran.
> 
> I use a test-programm (see attachment test.f) and get the iostat-error
> 102, but I don't know why.
> 
> Thank you in advanced
> 
> Ruediger Brand