OSDN Git Service

fortran/
authormikael <mikael@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 29 Mar 2014 12:14:41 +0000 (12:14 +0000)
committermikael <mikael@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 29 Mar 2014 12:14:41 +0000 (12:14 +0000)
PR fortran/60677
* trans-intrinsic.c (gfc_conv_intrinsic_ichar): Enlarge argument
list buffer.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/gcc-4_7-branch@208935 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/fortran/ChangeLog
gcc/fortran/trans-intrinsic.c

index 35a1bf3..11cbdde 100644 (file)
@@ -1,4 +1,10 @@
-2014-04-29  Thomas Koenig  <tkoenig@gcc.gnu.org>
+2014-03-29  Mikael Morin  <mikael@gcc.gnu.org>
+
+       PR fortran/60677
+       * trans-intrinsic.c (gfc_conv_intrinsic_ichar): Enlarge argument
+       list buffer.
+
+2014-03-29  Thomas Koenig  <tkoenig@gcc.gnu.org>
 
        PR fortran/60522
        * frontend-passes.c (cfe_code):  Do not walk subtrees
 
        PR fortran/60522
        * frontend-passes.c (cfe_code):  Do not walk subtrees
index 89dbb01..b875299 100644 (file)
@@ -4664,7 +4664,7 @@ gfc_conv_intrinsic_index_scan_verify (gfc_se * se, gfc_expr * expr,
 static void
 gfc_conv_intrinsic_ichar (gfc_se * se, gfc_expr * expr)
 {
 static void
 gfc_conv_intrinsic_ichar (gfc_se * se, gfc_expr * expr)
 {
-  tree args[2], type, pchartype;
+  tree args[3], type, pchartype;
   int nargs;
 
   nargs = gfc_intrinsic_argument_list_length (expr);
   int nargs;
 
   nargs = gfc_intrinsic_argument_list_length (expr);