]> git.ipfire.org Git - thirdparty/gcc.git/commit - gcc/fortran/intrinsic.h
re PR libfortran/15280 (Fortran9x commandline not accessable)
authorJanne Blomqvist <jblomqvi@cc.hut.fi>
Sun, 4 Jul 2004 17:00:12 +0000 (20:00 +0300)
committerPaul Brook <pbrook@gcc.gnu.org>
Sun, 4 Jul 2004 17:00:12 +0000 (17:00 +0000)
commitb41b25345b30416cc308c8b412a81542e2fe00f3
treebf14ee897d80e183e56fcc50abe726cd40989776
parentdafa622b60c5db11daf3ea3ab8e91da1df25a093
re PR libfortran/15280 (Fortran9x commandline not accessable)

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
gcc/fortran/ChangeLog
gcc/fortran/gfortran.h
gcc/fortran/intrinsic.c
gcc/fortran/intrinsic.h
gcc/fortran/iresolve.c
gcc/fortran/trans-decl.c
gcc/fortran/trans-intrinsic.c
gcc/fortran/trans.h
libgfortran/ChangeLog
libgfortran/intrinsics/args.c
libgfortran/libgfortran.h