re PR fortran/30933 (intrinsic: EXIT)

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

From-SVN: r127256

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 9d7db4250fec9817b63f1559f0d58be58f0283c1..ec3b5c65d0066d52e49c78c78b3910584b847ba0 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -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 

diff --git a/gcc/fortran/iresolve.c b/gcc/fortran/iresolve.c
index 5c491355908eb7a45b0a815d2df454c6d94a2f95..21ec6058a102ec2c447e7759860c86618568e40f 100644 (file)
--- a/gcc/fortran/iresolve.c
+++ b/gcc/fortran/iresolve.c
@@ -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);
 }