OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/30933 (intrinsic: EXIT) 

PR fortran/30933
	* iresolve.c (gfc_resolve_exit): Convert argument to default
	integer kind.

From-SVN: r127256
This commit is contained in:
Francois-Xavier Coudert 2007-08-06 22:29:24 +00:00 committed by François-Xavier Coudert
parent af34b82ff4
commit fe569d8fb1
2 changed files with 16 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2007-08-06 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
PR fortran/30933
* iresolve.c (gfc_resolve_exit): Convert argument to default
integer kind.
2007-08-06 Daniel Franke <franke.daniel@gmail.com>
* resolve.c (derived_pointer): Removed, replaced callers by access

16
gcc/fortran/iresolve.c
View File

@ -2739,14 +2739,18 @@ void
gfc_resolve_exit (gfc_code *c)
{
const char *name;
int kind;
gfc_typespec ts;
gfc_expr *n;
if (c->ext.actual->expr != NULL)
kind = c->ext.actual->expr->ts.kind;
else
kind = gfc_default_integer_kind;
/* The STATUS argument has to be of default kind. If it is not,
we convert it. */
ts.type = BT_INTEGER;
ts.kind = gfc_default_integer_kind;
n = c->ext.actual->expr;
if (n != NULL && n->ts.kind != ts.kind)
gfc_convert_type (n, &ts, 2);
name = gfc_get_string (PREFIX ("exit_i%d"), kind);
name = gfc_get_string (PREFIX ("exit_i%d"), ts.kind);
c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
}