------- Additional Comments From fxcoudert at gcc dot gnu dot org 2005-05-26 08:31 ------- Confirmed. Parse tree output for slightly modified testcase:
$ cat a.f character*2 a character*4 b character*4 c parameter(a="12") parameter (b = a) c = a write (*, '("#",A,"#")') b write (*, '("#",A,"#")') c end $ gfortran a.f -fdump-parse-tree Namespace: A-H: (REAL 4) I-N: (INTEGER 4) O-Z: (REAL 4) symtree: b Ambig 0 symbol b (CHARACTER 4)(PARAMETER UNKNOWN-INTENT UNKNOWN-ACCESS UNKNOWN-PROC) value: '12' symtree: a Ambig 0 symbol a (CHARACTER 2)(PARAMETER UNKNOWN-INTENT UNKNOWN-ACCESS UNKNOWN-PROC) value: '12' symtree: c Ambig 0 symbol c (CHARACTER 4)(VARIABLE UNKNOWN-INTENT UNKNOWN-ACCESS UNKNOWN-PROC) ASSIGN c '12' WRITE UNIT=6 FMT='("#",A,"#")' TRANSFER '12' DT_END WRITE UNIT=6 FMT='("#",A,"#")' TRANSFER c DT_END $ ./a.out #12# #12 # -- What |Removed |Added ---------------------------------------------------------------------------- Status|UNCONFIRMED |NEW Ever Confirmed| |1 Last reconfirmed|0000-00-00 00:00:00 |2005-05-26 08:31:17 date| | http://gcc.gnu.org/bugzilla/show_bug.cgi?id=21730