+2006-10-02 Francois-Xavier Coudert <coudert@clipper.ens.fr>
+
+ PR fortran/29210
+ * primary.c (match_sym_complex_part): Named constants as real or
+ imaginary part of complex a named constant are only allowed in
+ Fortran 2003.
+
2006-10-01 Brooks Moses <bmoses@stanford.edu>
* gfortran.texi: Corrected references to MALLOC intrinsic.
return MATCH_ERROR;
}
+ if (gfc_notify_std (GFC_STD_F2003, "Fortran 2003: PARAMETER symbol in "
+ "complex constant at %C") == FAILURE)
+ return MATCH_ERROR;
+
switch (sym->value->ts.type)
{
case BT_REAL:
+2006-10-02 Francois-Xavier Coudert <coudert@clipper.ens.fr>
+
+ PR fortran/29210
+ * gfortran.dg/complex_parameter_1.f90: New test.
+
2006-10-02 Jakub Jelinek <jakub@redhat.com>
PR c/29154
--- /dev/null
+! { dg-do compile }
+! { dg-options "-std=f95" }
+ integer,parameter :: i = 42
+ real,parameter :: x = 17.
+ complex,parameter :: z = (1.,2.)
+ complex,parameter :: c1 = (i, 0.5) ! { dg-error "Fortran 2003: PARAMETER symbol in complex constant" }
+ complex,parameter :: c2 = (x, 0.5) ! { dg-error "Fortran 2003: PARAMETER symbol in complex constant" }
+ complex,parameter :: c3 = (z, 0.) ! { dg-error "Fortran 2003: PARAMETER symbol in complex constant" }
+ print *, c1, c2, c3
+ end