[Bug fortran/16509] gfortran rejects "REAL R(2) /2*1.0/"

["david dot billinghurst at comalco dot riotinto dot com dot au" <gcc-bugzilla at gcc dot gnu dot org>]

------- Additional Comments From david dot billinghurst at comalco dot riotinto dot com dot au  2004-07-13 05:09 -------
Subject: RE:  gfortran rejects "REAL R(2) /2*1.0/"

sgk at troutmask dot apl dot washington dot edu wrote:
> ------- Additional Comments From sgk at troutmask dot apl dot
> washington dot edu  2004-07-13 04:42 ------- G77 supports the method
> of enumerating the KIND of the different 
> data types.  That is, REAL(1) is default REAL KIND or single precision
> or REAL(4) in gfortran.  REAL(2) is double precision or REAL(8) in
> gfortran.  For the REAL type, gfortran only supports REAL(4) and
> REAL(8), 
> so we can map REAL(1) an REAL(2) to the appropriate data type. 
> Unfortunately, 
> we can't deal with the G77 enumeration of LOGICAL and INTEGER without
> a -fkind=enumerate or -fkind=byte option.

This is a combined decalration and data statement meaning

      REAL R(2) 
      DATA /2*1.0/

The original was more like

      REAL R(19) /19*(-1)/


-- 


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