[Bug fortran/12366] [gfortran] array assignment fails

[Tobias dot Schlueter at physik dot uni-muenchen dot de]

------- Additional Comments From Tobias dot Schlueter at physik dot uni-muenchen dot de  2004-04-22 11:23 -------
The current tree seems to ignore the assignment which failed before. I'll see if
I can find out what's happening. Compiler output below:

[tobi@marktplatz src]$ gcc/build/gcc/f951 testg.f90 -fdump-parse-tree

        Namespace: A-H: (REAL 4) I-N: (INTEGER 4) O-Z: (REAL 4)
        symtree: a  Ambig 0
        symbol a (REAL 4)(VARIABLE UNKNOWN-INTENT UNKNOWN-ACCESS UNKNOWN-PROC
DIMENSION)
        Array spec:(1 AS_EXPLICIT 1 5 )

        symtree: b  Ambig 0
        symbol b (REAL 4)(VARIABLE UNKNOWN-INTENT UNKNOWN-ACCESS UNKNOWN-PROC
DIMENSION)
        Array spec:(1 AS_EXPLICIT 1 3 )

        symtree: testg  Ambig 0
        symbol testg (UNKNOWN 0)(PROGRAM UNKNOWN-INTENT UNKNOWN-ACCESS UNKNOWN-PROC)


      ASSIGN a(FULL) (/ 0.15e1 , 0.21e1 , 0.32e1 , 0.46e1 , 0.53e1 /)
      WRITE UNIT=6 FMT=-1
      TRANSFER b(FULL)
      DT_END

 MAIN__

Execution times (seconds)
 life analysis         :   0.00 ( 0%) usr   0.00 ( 0%) sys   0.01 (20%) wall
 parser                :   0.01 (20%) usr   0.00 ( 0%) sys   0.01 (20%) wall
 expand                :   0.01 (20%) usr   0.00 ( 0%) sys   0.00 ( 0%) wall
 TOTAL                 :   0.05             0.00             0.05
Extra diagnostic checks enabled; compiler may run slowly.
Configure with --disable-checking to disable checks.
[tobi@marktplatz src]$

-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=12366