diff options
| author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-08-06 22:44:27 +0000 |
|---|---|---|
| committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-08-06 22:44:27 +0000 |
| commit | 70dce4799182b8bdf87d4910c87bea35185a6f5f (patch) | |
| tree | a7b5bef342573a79dacfca86ecdd3e7cbb28cd3a /gcc/fortran | |
| parent | 736f21d6204d06894dc6e22e3d6a236581d60471 (diff) | |
| download | gcc-70dce4799182b8bdf87d4910c87bea35185a6f5f.tar.gz | |
PR fortran/30933
* intrinsic.c (add_functions): Fix name of argument to CHDIR.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@127257 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/intrinsic.c | 6 |
2 files changed, 8 insertions, 3 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index ec3b5c65d00..b41a48d2fea 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,6 +1,11 @@ 2007-08-06 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> PR fortran/30933 + * intrinsic.c (add_functions): Fix name of argument to CHDIR. + +2007-08-06 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> + + PR fortran/30933 * iresolve.c (gfc_resolve_exit): Convert argument to default integer kind. diff --git a/gcc/fortran/intrinsic.c b/gcc/fortran/intrinsic.c index e175dd678b9..71d53ff5948 100644 --- a/gcc/fortran/intrinsic.c +++ b/gcc/fortran/intrinsic.c @@ -1176,9 +1176,9 @@ add_functions (void) make_generic ("char", GFC_ISYM_CHAR, GFC_STD_F77); - add_sym_1 ("chdir", GFC_ISYM_CHDIR, NO_CLASS, ACTUAL_NO, BT_INTEGER, di, GFC_STD_GNU, - gfc_check_chdir, NULL, gfc_resolve_chdir, - a, BT_CHARACTER, dc, REQUIRED); + add_sym_1 ("chdir", GFC_ISYM_CHDIR, NO_CLASS, ACTUAL_NO, BT_INTEGER, di, + GFC_STD_GNU, gfc_check_chdir, NULL, gfc_resolve_chdir, + nm, BT_CHARACTER, dc, REQUIRED); make_generic ("chdir", GFC_ISYM_CHDIR, GFC_STD_GNU); |