Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!seismo!lll-lcc!mordor!styx!ames!ucbcad!ucbvax!AC.UK!SUPPORT%UK.AC.LEEDS.BIOVAX
From: SUPPORT%UK.AC.LEEDS.BIOVAX@AC.UK
Newsgroups: mod.computers.vax
Subject: (none)
Message-ID: <8701061505.AA29888@ucbvax.Berkeley.EDU>
Date: Tue, 6-Jan-87 10:06:07 EST
Article-I.D.: ucbvax.8701061505.AA29888
Posted: Tue Jan  6 10:06:07 1987
Date-Received: Tue, 6-Jan-87 21:19:47 EST
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The ARPA Internet
Lines: 56
Approved: info-vax@sri-kl.arpa


                  VMS 4.5 REWIND problem with FORTRAN
      Dear all,

                  There is a bug with the new RMS.EXE which is
      distributed  as part of the VMS 4.5 upgrade.

            This bug causes FORTRAN programs which use the REWIND
      statement to fail see example program below.

            I have sent a SPR to DEC they confirm the problem
      and are trying make a patch to fix the problem.

            Our current version of the FORTRAN compiler is
      4.5-219.




                  Don Akrigg
                  Astbury Dept Of Biophysics
                  University of LEEDS
                  LEEDS
                  LS2  9JT
                  UK


      BITNET/NETNORTH/EARN : don@biovax.leeds.ac.uk
                        (or) don%biovax.@ac.uk

      ARPA:                  don%biovax.leeds.ac.uk@ucl-cs.arpa





C      Start of example program for problem with RMS.EXE with VMS 4.5
C      REWIND statement does not work as expected.
      REAL A(10),B(10),AOUT(10),BOUT(10)
      DATA A,B/10*99.,10*55./,AOUT,BOUT/10*0.,10*0./
	OPEN(UNIT=1,NAME='TEST.TMP',CARRIAGECONTROL='LIST',
     .	STATUS='NEW',FORM='FORMATTED',SHARED)
100   FORMAT(1X,10F7.0)
      WRITE(1,100)A
      TYPE *,'A WRITTEN'
      REWIND 1
      READ(1,100)AOUT
      TYPE *,'A READ',AOUT
      REWIND 1
      WRITE(1,100)B
      TYPE *,'B WRITTEN'
      REWIND 1
      READ(1,100)BOUT
      TYPE *,'B READ',BOUT
      STOP
      END