diff options
| author | pbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-09-08 14:33:03 +0000 |
|---|---|---|
| committer | pbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-09-08 14:33:03 +0000 |
| commit | 22d678e818e4cd9b7fe186fa0725a900df3f4db3 (patch) | |
| tree | a38df818a0e3b820f84fcfd17398ee161742aa6c /gcc/fortran/resolve.c | |
| parent | b98fea5c1220e51f32afa42572c87eefb7f52760 (diff) | |
| download | gcc-22d678e818e4cd9b7fe186fa0725a900df3f4db3.tar.gz | |
* array.c: Don't include assert.h.
* data.c: Don't include assert.h. Replace assert and abort with
gcc_assert and gcc_unreachable.
* dependency.c: Ditto.
* f95-lang.c: Ditto.
* iresolve.c: Ditto.
* resolve.c: Ditto.
* simplify.c: Ditto.
* symbol.c: Ditto.
* trans-array.c: Ditto.
* trans-common.c: Ditto.
* trans-const.c: Ditto.
* trans-decl.c: Ditto.
* trans-expr.c: Ditto.
* trans-intrinsic.c: Ditto.
* trans-io.c: Ditto.
* trans-stmt.c: Ditto.
* trans-types.c: Ditto.
* trans.c: Ditto.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@87187 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 1a7fd80c2b3..ec808a392b6 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -22,7 +22,6 @@ Software Foundation, 59 Temple Place - Suite 330,Boston, MA #include "config.h" #include "gfortran.h" #include "arith.h" /* For gfc_compare_expr(). */ -#include <assert.h> #include <string.h> /* Stack to push the current if we descend into a block during @@ -345,7 +344,7 @@ resolve_entries (gfc_namespace * ns) return; /* If this isn't a procedure something has gone horribly wrong. */ - assert (ns->proc_name->attr.flavor == FL_PROCEDURE); + gcc_assert (ns->proc_name->attr.flavor == FL_PROCEDURE); /* Remember the current namespace. */ old_ns = gfc_current_ns; @@ -375,7 +374,7 @@ resolve_entries (gfc_namespace * ns) master_count++, ns->proc_name->name); name[GFC_MAX_SYMBOL_LEN] = '\0'; gfc_get_ha_symbol (name, &proc); - assert (proc != NULL); + gcc_assert (proc != NULL); gfc_add_procedure (&proc->attr, PROC_INTERNAL, NULL); if (ns->proc_name->attr.subroutine) @@ -3224,7 +3223,7 @@ gfc_find_forall_index (gfc_expr *expr, gfc_symbol *symbol) switch (expr->expr_type) { case EXPR_VARIABLE: - assert (expr->symtree->n.sym); + gcc_assert (expr->symtree->n.sym); /* A scalar assignment */ if (!expr->ref) @@ -3296,7 +3295,7 @@ gfc_find_forall_index (gfc_expr *expr, gfc_symbol *symbol) if (expr->ref) { tmp = expr->ref; - assert(expr->ref->type == REF_SUBSTRING); + gcc_assert (expr->ref->type == REF_SUBSTRING); if (gfc_find_forall_index (tmp->u.ss.start, symbol) == SUCCESS) return SUCCESS; if (gfc_find_forall_index (tmp->u.ss.end, symbol) == SUCCESS) @@ -3791,7 +3790,7 @@ resolve_code (gfc_code * code, gfc_namespace * ns) break; case EXEC_IOLENGTH: - assert(code->ext.inquire != NULL); + gcc_assert (code->ext.inquire != NULL); if (gfc_resolve_inquire (code->ext.inquire) == FAILURE) break; @@ -4159,7 +4158,7 @@ check_data_variable (gfc_data_variable * var, locus * where) continue; break; } - assert (ref); + gcc_assert (ref); /* Set marks asscording to the reference pattern. */ switch (ref->u.ar.type) @@ -4176,7 +4175,7 @@ check_data_variable (gfc_data_variable * var, locus * where) break; default: - abort(); + gcc_unreachable (); } if (gfc_array_size (e, &size) == FAILURE) |