diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2005-11-01 05:53:29 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2005-11-01 05:53:29 +0000 |
| commit | 53096259e6fb2000ca4bfd279e3f6b190d531090 (patch) | |
| tree | f43ca2a90a1161ac81c75432afec4935809322c3 /gcc/fortran/resolve.c | |
| parent | 4b2a5715eed5ff35731dc7eef78818fcd9aa4aa8 (diff) | |
| download | gcc-53096259e6fb2000ca4bfd279e3f6b190d531090.zip gcc-53096259e6fb2000ca4bfd279e3f6b190d531090.tar.gz gcc-53096259e6fb2000ca4bfd279e3f6b190d531090.tar.bz2 | |
re PR fortran/21565 (namelist in block data is illegal)
2005-11-01 Paul Thomas <pault@gcc.gnu.org>
PR fortran/21565
* symbol.c (check_conflict): An object cannot be in a namelist and in
block data.
PR fortran/18737
* resolve.c (resolve_symbol): Set the error flag to
gfc_set_default_type, in the case of an external symbol, so that
an error message is emitted if IMPLICIT NONE is set.
PR fortran/14994
* gfortran.h (gfc_generic_isym_id): Add GFC_ISYM_SECNDS to enum.
* check.c (gfc_check_secnds): New function.
* intrinsic.c (add_functions): Add call to secnds.
* iresolve.c (gfc_resolve_secnds): New function.
* trans-intrinsic (gfc_conv_intrinsic_function): Add call to
secnds via case GFC_ISYM_SECNDS.
* intrinsic.texi: Add documentation for secnds.
2005-11-01 Paul Thomas <pault@gcc.gnu.org>
PR fortran/14994
* libgfortran/intrinsics/date_and_time.c: Add interface to
the functions date_and_time for the intrinsic function secnds.
2005-11-01 Paul Thomas <pault@gcc.gnu.org>
PR fortran/21565
gfortran.dg/namelist_blockdata.f90: New test.
PR fortran/18737
gfortran.dg/external_implicit_none.f90: New test.
PR fortran/14994
* gfortran.dg/secnds.f: New test.
From-SVN: r106317
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index f6fb2b0..5d5ca78 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -4238,8 +4238,10 @@ resolve_symbol (gfc_symbol * sym) if (sym->attr.flavor == FL_PROCEDURE && sym->attr.function) { + /* The specific case of an external procedure should emit an error + in the case that there is no implicit type. */ if (!mp_flag) - gfc_set_default_type (sym, 0, NULL); + gfc_set_default_type (sym, sym->attr.external, NULL); else { /* Result may be in another namespace. */ |