This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
g77 bug ?
- To: egcs-bugs at cygnus dot com
- Subject: g77 bug ?
- From: Dong-Woon Park <dwpark at plab2 dot snu dot ac dot kr>
- Date: 14 Oct 1998 15:14:32 +0900
This error message is encountered while reading a file.
----------------------------------------------------------------------
invalid number: incomprehensible list input
apparent state: unit 2 named twist24-3pt.dat
last format: list io
lately reading sequential formatted external IO
Aborted
----------------------------------------------------------------------
The error occurs in the following part.
----------------------------------------------------------------------
do 350 i = 1, numel
read(inpt,*) n
read(inpt,*) ((stress(j,k,n),j=1,6),k=1,intorder) ! <- error
read(inpt,*) ((stress_stab(j,k,n),j=1,6),k=1,4) ! <- error
if(n .ge. numel) go to 380
350 continue
----------------------------------------------------------------------
When I change the source into this, the error disappears.
----------------------------------------------------------------------
do 350 i = 1, numel
read(inpt,*) n
do k=1,intorder
read(inpt,*) (stress(j,k,n),j=1,6)
enddo
do k=1,4
read(inpt,*) (stress_stab(j,k,n),j=1,6)
enddo
if(n .ge. numel) go to 380
350 continue
----------------------------------------------------------------------
--OAA11128.908344459/ghost1.snu.ac.kr--