mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-02-21 14:20:03 +08:00
Code Issues Packages Projects Releases Wiki Activity

decl.c (gfc_match_old_kind_spec): Improve handling of old style COMPLEX*N

Browse Source 
2005-12-01  Erik Schnetter  <schnetter@aei.mpg.de>

	* decl.c (gfc_match_old_kind_spec):  Improve handling of old style
	COMPLEX*N

From-SVN: r107853
This commit is contained in:
Erik Schnetter 2005-12-02 01:25:58 +00:00 committed by Steven G. Kargl
parent 86e1c63bec
commit e45b3c7546
2 changed files with 20 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,8 @@
2005-12-01 Erik Schnetter <schnetter@aei.mpg.de>
* decl.c (gfc_match_old_kind_spec): Improve handling of old style
COMPLEX*N
2005-12-01 Paul Thomas <pault@gcc.gnu.org>
PR fortran/24789
@ -19,7 +24,6 @@
* invoke.texi: Document -ffree-line-length- and
-ffree-line-length-none
2005-11-30 Paul Thomas <pault@gcc.gnu.org>
PR fortran/15809

22
gcc/fortran/decl.c
View File

@ -1279,6 +1279,7 @@ match
gfc_match_old_kind_spec (gfc_typespec * ts)
{
match m;
int original_kind;
if (gfc_match_char ('*') != MATCH_YES)
return MATCH_NO;
@ -1287,17 +1288,24 @@ gfc_match_old_kind_spec (gfc_typespec * ts)
if (m != MATCH_YES)
return MATCH_ERROR;
original_kind = ts->kind;
/* Massage the kind numbers for complex types. */
if (ts->type == BT_COMPLEX && ts->kind == 8)
ts->kind = 4;
if (ts->type == BT_COMPLEX && ts->kind == 16)
ts->kind = 8;
if (ts->type == BT_COMPLEX)
{
if (ts->kind % 2)
{
gfc_error ("Old-style type declaration %s*%d not supported at %C",
gfc_basic_typename (ts->type), original_kind);
return MATCH_ERROR;
}
ts->kind /= 2;
}
if (gfc_validate_kind (ts->type, ts->kind, true) < 0)
{
gfc_error ("Old-style kind %d not supported for type %s at %C",
ts->kind, gfc_basic_typename (ts->type));
gfc_error ("Old-style type declaration %s*%d not supported at %C",
gfc_basic_typename (ts->type), original_kind);
return MATCH_ERROR;
}