[Bug fortran/21730] Character length incorrect.

["fxcoudert at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

------- 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