PROGRAM logical_data
      LOGICAL*1 GRD
      DATA  GRD /.TRUE./
      END

gives:
> gfc -v logical_data.f
Driving: /usr/local/gfortran/irun/bin/gfortran -static -v logical_data.f 
-lgfortranbegin -lgfortran -lm
Using built-in specs.
Configured with: ../gcc/configure --enable-languages=c,f95 
--prefix=/usr/work/2005023/irun
Thread model: posix
gcc version 4.0.0 20050123 (experimental)
 /usr/local/gfortran/irun/bin/../libexec/gcc/i686-pc-linux-gnu/4.0.0/f951 
logical_data.f -ffixed-form -quiet -dumpbase logical_data.f -mtune=pentiumpro 
-auxbase logical_data -version -o /tmp/cc2uDAa6.s
GNU F95 version 4.0.0 20050123 (experimental) (i686-pc-linux-gnu)
        compiled by GNU C version 4.0.0 20050117 (experimental).
GGC heuristics: --param ggc-min-expand=30 --param ggc-min-heapsize=4096
 In file logical_data.f:3

      DATA  GRD /.TRUE./
                      1
Error: Incompatible types in assignment at (1), LOGICAL(4) to LOGICAL(1)


which is a clear regression, g77 supports this.
Of course this error happens also with LOGICAL*2, LOGICAL*8, ...

-- 
           Summary: Regression: Error on Data assignment with LOGICAL*1
           Product: gcc
           Version: 4.0.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: manfred99 at gmx dot ch
                CC: gcc-bugs at gcc dot gnu dot org


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

Reply via email to