diff options
| author | pbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-08-06 21:47:03 +0000 |
|---|---|---|
| committer | pbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-08-06 21:47:03 +0000 |
| commit | 96901ab7a8210e7384658485cb0ecbf4def87847 (patch) | |
| tree | c74733622978a45c69d005d29049be3d1ac7b4da /gcc/fortran/iresolve.c | |
| parent | 4007e2c54decc22beeef862535d0a619b0247ecf (diff) | |
| download | gcc-96901ab7a8210e7384658485cb0ecbf4def87847.tar.gz | |
2004-08-06 Janne Blomqvist <jblomqvi@cc.hut.fi>
* intrinsic.c (add_subroutines): Add getenv and
get_environment_variable. (add_sym_5s): New function.
* intrinsic.h (gfc_resolve_get_environment_variable): Add
prototype.
* iresolve.c (gfc_resolve_get_environment_variable): New
function.
libgfortran/
* intrinsics/env.c: New file.
* Makefile.am: Add env.c to build.
* Makefile.in: Regenerate.
testsuite/
* gfortran.dg/getenv_1.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@85656 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/iresolve.c')
| -rw-r--r-- | gcc/fortran/iresolve.c | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/gcc/fortran/iresolve.c b/gcc/fortran/iresolve.c index f7e7f71427e..b42294d7d23 100644 --- a/gcc/fortran/iresolve.c +++ b/gcc/fortran/iresolve.c @@ -1449,6 +1449,19 @@ gfc_resolve_get_command_argument (gfc_code * c) c->resolved_sym = gfc_get_intrinsic_sub_symbol (name); } +/* Resolve the get_environment_variable intrinsic subroutine. */ + +void +gfc_resolve_get_environment_variable (gfc_code * code) +{ + const char *name; + int kind; + + kind = gfc_default_integer_kind(); + name = gfc_get_string (PREFIX("get_environment_variable_i%d"), kind); + code->resolved_sym = gfc_get_intrinsic_sub_symbol (name); +} + /* Determine if the arguments to SYSTEM_CLOCK are INTEGER(4) or INTEGER(8) */ |