FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
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
This commit is contained in:
Tobias Burnus 2007-03-31 19:30:11 +02:00 • committed by Tobias Burnus
parent 374eadb2bb
commit 9fe3100ed5
2 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View file

@ -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

4
gcc/fortran/intrinsic.c
View file

@ -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();