re PR fortran/30933 (intrinsic: EXIT)

	PR fortran/30933
	* intrinsic.c (add_functions): Fix name of argument to CHDIR.

From-SVN: r127257

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index ec3b5c65d0066d52e49c78c78b3910584b847ba0..b41a48d2fea7063f7705f9600cea3c9172f76430 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -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

diff --git a/gcc/fortran/intrinsic.c b/gcc/fortran/intrinsic.c
index e175dd678b95c7df53aa8b6c2ecd5d9745d70188..71d53ff5948e7b6b3edfe1a0a76636b44176b9c5 100644 (file)
--- 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);