g77 bug ?

[Toon Moene]

>  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

<QUOTE> the source:

      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

</QUOTE>

When I change the source into this, the error disappears.

<QUOTE>

      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

</QUOTE>

1. Note that the two programs are not equivalent, because the second
   one will read a new record for every new value of `k', whereas
   this is not guaranteed for the first program.

2. Apperently this is a program *fragment*, because I can't find any
   initialisation for `j' and `inpt' - and we really only can help if
   you send in complete programs.

3. In that case we also need the input file that leads to the
   run-time failure.

Hope this helps,
Toon.