[Bug fortran/16228] New: [gfortran] character arrays not initialized properly with data statements

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

character arrays are not padded with blanks, however character variables are.


! demonstrates a character array is initialized
! differently from a character variable
       IMPLICIT NONE
       CHARACTER*2 STR1(3)
       CHARACTER*2 STR2
       DATA STR1 / 'L','L','L' /
       DATA STR2 / 'L' /
       print '(3Z8,5X,Z8)',STR1,STR2
       IF (STR2 .EQ. STR1(1)) THEN
         print*,'they are equal'
       else
         print*,'they are not equal'
       END IF
       END
$ gfc -static c.f
/tmp/ccvxcdtJ.s: Assembler messages:
/tmp/ccvxcdtJ.s:8: Warning: .space repeat count is zero, ignored
/tmp/ccvxcdtJ.s:11: Warning: .space repeat count is zero, ignored
[bdavis@localhost seq_io5]$ ./a.out
      4C      4C      4C         204C
 they are not equal
$ gfc --version
GNU Fortran 95 (GCC 3.5.0 20040627 (experimental))

$ g77 c.f
$ ./a.out
    204C    204C    204C         204C
 they are equal

-- 
           Summary: [gfortran] character arrays not initialized properly
                    with data statements
           Product: gcc
           Version: 3.5.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: bdavis at gcc dot gnu dot org
                CC: gcc-bugs at gcc dot gnu dot org


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