Commit 23bc73b5 by Daniel Franke Committed by Daniel Franke

re PR fortran/31473 (gfortran does not detect duplicate EXTERNAL or INTRINSIC declarations)

2007-06-22  Daniel Franke  <franke.daniel@gmail.com>

        PR fortran/31473
        * symbol.c (gfc_copy_attr): Emit errors for duplicate
        EXTERNAL/INTRINSIC statements.

From-SVN: r125954
parent 147bbdd0
2007-06-22 Daniel Franke <franke.daniel@gmail.com>
PR fortran/31473
* symbol.c (gfc_copy_attr): Emit errors for duplicate
EXTERNAL/INTRINSIC statements.
2007-06-22 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2007-06-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/32360 PR fortran/32360
......
...@@ -1436,14 +1436,11 @@ gfc_copy_attr (symbol_attribute * dest, symbol_attribute * src, locus * where) ...@@ -1436,14 +1436,11 @@ gfc_copy_attr (symbol_attribute * dest, symbol_attribute * src, locus * where)
goto fail; goto fail;
if (src->cray_pointee && gfc_add_cray_pointee (dest, where) == FAILURE) if (src->cray_pointee && gfc_add_cray_pointee (dest, where) == FAILURE)
goto fail; goto fail;
/* The subroutines that set these bits also cause flavors to be set, if (src->external && gfc_add_external (dest, where) == FAILURE)
and that has already happened in the original, so don't let it goto fail;
happen again. */ if (src->intrinsic && gfc_add_intrinsic (dest, where) == FAILURE)
if (src->external) goto fail;
dest->external = 1;
if (src->intrinsic)
dest->intrinsic = 1;
return SUCCESS; return SUCCESS;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment