mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-02-25 07:55:30 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/29210 ([4.1 only] Name parameter in complex constant not allowed in F95)

Browse Source 
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.

	* gfortran.dg/complex_parameter_1.f90: New test.

From-SVN: r117368
This commit is contained in:
Francois-Xavier Coudert 2006-10-02 11:21:45 +02:00 committed by François-Xavier Coudert
parent 82181741c1
commit e227ac577f
4 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/fortran/ChangeLog
View File

@ -1,3 +1,10 @@
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.

4
gcc/fortran/primary.c
View File

@ -1084,6 +1084,10 @@ match_sym_complex_part (gfc_expr ** result)
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:

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
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

10
gcc/testsuite/gfortran.dg/complex_parameter_1.f90 Normal file
View File

@ -0,0 +1,10 @@
! { 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