b41b25345b
PR fortran/15280 PR fortran/15665 * gfortran.h (enum gfc_generic_isym_id): Add GFC_ISYM_IARGC and GFC_ISYM_COMMAND_ARGUMENT_COUNT. * intrinsic.c (add_functions): Identify iargc. Add command_argument_count. (add_subroutines): Resolve getarg. Add get_command and get_command_argument. * intrinsic.h (gfc_resolve_getarg, gfc_resolve_get_command, gfc_resolve_get_command_argument): Add prototypes. * iresolve.c (gfc_resolve_getarg, gfc_resolve_get_command, gfc_resolve_get_command_argument): New functions. * trans-decl.c (gfor_fndecl_iargc): New variable. (gfc_build_intrinsic_function_decls): Set it. * trans-intrinsic.c (gfc_conv_intrinsic_iargc): New function. (gfc_conv_intrinsic_function): Use it. * trans.h (gfor_fndecl_iargc): Declare. libgfortran/ * libgfortran.h (gfc_strlen_type): Define. * intrinsics/args.c (getarg): Rename ... (getarg_i4): ... to this. (getarg_i8, get_command_argument_i4, get_command_argument_i8, get_command_i4, get_command_i8): New functions. Co-Authored-By: Paul Brook <paul@codesourcery.com> From-SVN: r84087 |
||
---|---|---|
.. | ||
abort.c | ||
args.c | ||
associated.c | ||
c99_functions.c | ||
cpu_time.c | ||
cshift0.c | ||
date_and_time.c | ||
dprod_r8.f90 | ||
eoshift0.c | ||
eoshift2.c | ||
etime.c | ||
ishftc.c | ||
pack_generic.c | ||
rand.c | ||
random.c | ||
reshape_generic.c | ||
reshape_packed.c | ||
selected_kind.f90 | ||
size.c | ||
spread_generic.c | ||
string_intrinsics.c | ||
system_clock.c | ||
transpose_generic.c | ||
unpack_generic.c |