re PR fortran/30933 (intrinsic: EXIT)
PR fortran/30933 * intrinsic.c (add_functions): Fix name of argument to CHDIR. From-SVN: r127257
This commit is contained in:
parent
fe569d8fb1
commit
a3e3233ac2
@ -1,3 +1,8 @@
|
||||
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
|
||||
|
@ -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);
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user