intrinsic.c (add_functions): Fix name of dummy argument for new_line and exit intrinsic.

2007-03-31  Tobias Burnus  <burnus@net-b.de>

       * intrinsic.c (add_functions): Fix name of dummy argument
         for new_line and exit intrinsic.

From-SVN: r123385

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 63c8bb7c4a1a4199ab808a0e467432c15e972ce3..2b113f4b922e211a39377f1a817837773bc57c66 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2007-03-31  Tobias Burnus  <burnus@net-b.de>
+
+       * intrinsic.c (add_functions): Fix name of dummy argument
+         for new_line and exit intrinsic.
+
 2007-03-31  Paul Thomas  <pault@gcc.gnu.org>
 
        PR fortran/31160

diff --git a/gcc/fortran/intrinsic.c b/gcc/fortran/intrinsic.c
index 7990988c55e78ff69663a28282c3bc63a93a73c7..76c2d3cc78669a83795fd4b0e1982c047af4a1ea 100644 (file)
--- a/gcc/fortran/intrinsic.c
+++ b/gcc/fortran/intrinsic.c
@@ -1913,7 +1913,7 @@ add_functions (void)
 
   add_sym_1 ("new_line", NOT_ELEMENTAL, ACTUAL_NO, BT_CHARACTER, dc,
             GFC_STD_F2003, gfc_check_new_line, gfc_simplify_new_line, NULL,
-            i, BT_CHARACTER, dc, REQUIRED);
+            a, BT_CHARACTER, dc, REQUIRED);
 
   add_sym_2 ("nint", ELEMENTAL, ACTUAL_YES, BT_INTEGER, di, GFC_STD_F77,
             gfc_check_a_ikind, gfc_simplify_nint, gfc_resolve_nint,
@@ -2459,7 +2459,7 @@ add_subroutines (void)
 
   add_sym_1s ("exit", 0, BT_UNKNOWN, 0, GFC_STD_GNU,
              gfc_check_exit, NULL, gfc_resolve_exit,
-             c, BT_INTEGER, di, OPTIONAL);
+             st, BT_INTEGER, di, OPTIONAL);
 
   if ((gfc_option.allow_std & GFC_STD_GNU) || gfc_option.flag_all_intrinsics)
     make_noreturn();