Conference turris::fortran

1181.0. "DEC$FORRTL problem ?" by PADKOA::COSTEUX (Le Plat Pays qui est le mien...) Tue Feb 18 1997 10:19

    A customer uses DEC Fortran-V6.3-711 on an Alpha system running
    OVMS-V6.2-1H3
    
    Assume the following two programs:
    
    - first program which creates a file
    
C 	To write 96 words in 20z4
C			integer*2
C

	dimension jdat(100)
	integer*2 jdat

	OPEN (13,name='toto.out',form='formatted',status='unknown')
	maxd=96

	do i=1,maxd
	 jdat(i)=i
	enddo
	write(13,100) (jdat(i),i=1,maxd)
100	format(20z4)

	close (13)
	end

    - second program reading the created file:
    
C 	To write 96 words in 20z4
C			integer*2
C			generated by writ.for 


	dimension jdat(100)
	integer*2 jdat

	OPEN (13,name='toto.out',form='formatted',type='old',readonly,shared)

	maxd=96

	read (13, 100, end=1000, err=2000, iostat=kerr)
     +  (jdat(l),l=i,maxd)

100	format(20z4)

	write(6,103) (jdat(i),i=1,maxd)
103	format(20i4)

	goto 3000
1000	write(6,*) 'No more data on file !'
	write(26,*) 'No more data on file !'
	goto 3000
2000	write(6,*) 'Error during read !'
	write(6,*) 'IOSTAT in read',kerr
	write(26,*) 'Error during read !'
	write(26,*) 'IOSTAT in read',kerr
3000	continue
	end

    
    ... when he runs the READ program as is he gets an error 64
    ... if he uses the format 20i4 there is no problem to read the file.
    
    I used these programs on my system but get an error 64 if I use the
    format 20i4 ... It runs fine if I use the format 20z4
    
    The customer uses a DEC$FORRTL-V01-05.171 _ DEC Fortran-V6.3-711
    I use a DEC Fortran-V6.3-711 _ DEC$FORRTL-V01-05.297 
    
    Any idea ? Is there a patch to upgrade the DEC$FORRTL ?
    
    Thanks for help
    
    Jean-Pierre
    

    Well, you could try him on FORRTLAE01070, but I have a difficult time
    believing the customer report.  I suspect a user-error.  Can you get a
    log that shows the actual programs used and the output of running them?
    
    				Steve