diff options
| author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2004-10-04 23:30:32 +0200 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2004-10-04 23:30:32 +0200 |
| commit | 5b1374e9650e556faaf95b9f8c16c9e730d001ed (patch) | |
| tree | 8fc6d2fea1b1e4f419fa9262f4e6faa4f4e68471 /gcc/fortran/intrinsic.c | |
| parent | 73a014b5498d4d6ea86796cca4a97973c9a847cd (diff) | |
| download | gcc-5b1374e9650e556faaf95b9f8c16c9e730d001ed.zip gcc-5b1374e9650e556faaf95b9f8c16c9e730d001ed.tar.gz gcc-5b1374e9650e556faaf95b9f8c16c9e730d001ed.tar.bz2 | |
re PR fortran/17776 (no subroutine system)
fortran/
PR fortran/17776
* check.c (gfc_check_system_sub): New function.
* gfortran.h (gfc_generic_isym_id): Add GFC_ISYM_SYSTEM.
* intrinsic.c (add_functions): Add 'system'.
(add_subroutines): Add 'system'.
* intrinsic.h (gfc_check_etime_sub, gfc_check_getcwd_sub):
Move prototypes to other suborutines.
(gfc_check_system_sub, gfc_resolve_system, gfc_resolve_system_sub):
Add prototype.
(gfc_resolve_system_clock): Fix formatting of prototype.
* iresolve.c (gfc_resolve_system, gfc_resolve_system_sub): New
functions.
* trans-intrinsic.c (gfc_conv_intrinsic_function): Deal with
GFC_ISYM_SYSTEM.
libgfortran/
PR fortran/17776
* intrinsics/system.c: New file.
* Makefile.am: Add dependency for the new file.
* Makefile.in: Regenerate.
From-SVN: r88532
Diffstat (limited to 'gcc/fortran/intrinsic.c')
| -rw-r--r-- | gcc/fortran/intrinsic.c | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/gcc/fortran/intrinsic.c b/gcc/fortran/intrinsic.c index 2875321..aa358f07 100644 --- a/gcc/fortran/intrinsic.c +++ b/gcc/fortran/intrinsic.c @@ -1775,6 +1775,10 @@ add_functions (void) make_generic ("sum", GFC_ISYM_SUM); + add_sym_1 ("system", 1, 1, BT_INTEGER, di, NULL, NULL, NULL, + c, BT_CHARACTER, dc, 0); + make_generic ("system", GFC_ISYM_SYSTEM); + add_sym_1 ("tan", 1, 1, BT_REAL, dr, NULL, gfc_simplify_tan, gfc_resolve_tan, x, BT_REAL, dr, 0); @@ -1951,6 +1955,11 @@ add_subroutines (void) gfc_check_srand, NULL, gfc_resolve_srand, c, BT_INTEGER, 4, 0); + add_sym_2s ("system", 0, 1, BT_UNKNOWN, 0, + NULL, NULL, gfc_resolve_system_sub, + c, BT_CHARACTER, dc, 0, + st, BT_INTEGER, di, 1); + add_sym_3s ("system_clock", 0, 1, BT_UNKNOWN, 0, gfc_check_system_clock, NULL, gfc_resolve_system_clock, c, BT_INTEGER, di, 1, cr, BT_INTEGER, di, 1, |