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/intrinsic.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/intrinsic.c')
| -rw-r--r-- | gcc/fortran/intrinsic.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/gcc/fortran/intrinsic.c b/gcc/fortran/intrinsic.c index e96ccbb..a577ed9 100644 --- a/gcc/fortran/intrinsic.c +++ b/gcc/fortran/intrinsic.c @@ -1882,6 +1882,13 @@ add_functions (void) make_generic ("second", GFC_ISYM_SECOND, GFC_STD_GNU); + /* Added for G77 compatibility. */ + add_sym_1 ("secnds", 0, 1, BT_REAL, dr, GFC_STD_GNU, + gfc_check_secnds, NULL, gfc_resolve_secnds, + x, BT_REAL, dr, REQUIRED); + + make_generic ("secnds", GFC_ISYM_SECNDS, GFC_STD_GNU); + add_sym_1 ("selected_int_kind", 0, 1, BT_INTEGER, di, GFC_STD_F95, gfc_check_selected_int_kind, gfc_simplify_selected_int_kind, NULL, r, BT_INTEGER, di, REQUIRED); |