This is the mail archive of the cygwin mailing list for the Cygwin project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

FORTRAN open/read problem with drive letters


Dear colleagues,

I encountered some unexpected problems when opening a data file in a FORTRAN program and reading characters from it. I work on WINDOWS XP and I downloaded today the latest version of cygwin from http://sources.redhat.com/cygwin/. g77 claims to be version 3.3.3

The problem which can be reproduced by the small program attached occurs only when I open the file (test.dat is assumed here to reside in the root directory of drive d) with an absolute path in the form 'd:/test.dat' and when the read format is '(A)'. In this case, the output consists of three empty lines only. Not even the "read:" is printed. The problem does not occur when I use '/cygdrive/d/test.dat' to open the file or when the read format contains explicitly the correct length of the line. It is apparent that the data file is found and opened since the number of lines found during reading corresponds to the actual number of lines in the file.

Any help would be welcome.

Kind regards,

Peter Pichler

===== test.f start =====
     PROGRAM TEST
     CHARACTER*256 STRVAL
     CHARACTER*72 ZEI

C--- this works:
C      OPEN (UNIT=21,FILE=
C     1     'd:/test.dat',
C     2     STATUS='OLD')
C
C 10   READ (21,'(A6)',END=30,ERR=30) ZEI
C      write (*,'(T2,''read: '',A)') zei
C      GOTO 10

C--- this works:
C      OPEN (UNIT=21,FILE=
C     1     '/cygdrive/d/test.dat',
C     2     STATUS='OLD')
C
C 10   READ (21,'(A)',END=30,ERR=30) ZEI
C      write (*,'(T2,''read: '',A)') zei
C      GOTO 10

C--- the combination does'nt work:
     OPEN (UNIT=21,FILE=
    1     'd:/test.dat',
    2     STATUS='OLD')

10   READ (21,'(A)',END=30,ERR=30) ZEI
     write (*,'(T2,''read: '',A)') zei
     GOTO 10

30   CONTINUE
     CLOSE(21)
     END
===== test.f end =====

===== test.dat start =====
line 1
line 2
line 3
===== test.dat end =====

--
Dr. Peter Pichler           Tel.:  +49 (0) 9131 761-227
Fraunhofer IISB             Fax :  +49 (0) 9131 761-212
Schottkystrasse 10          mailto:peter.pichler@iisb.fraunhofer.de
91058 Erlangen, Germany     http://www.iisb.fraunhofer.de


-- Unsubscribe info: http://cygwin.com/ml/#unsubscribe-simple Problem reports: http://cygwin.com/problems.html Documentation: http://cygwin.com/docs.html FAQ: http://cygwin.com/faq/


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]