2014-01-09 Tobias Burnus <burnus@net-b.de>
authorburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 9 Jan 2014 19:51:13 +0000 (19:51 +0000)
committerburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 9 Jan 2014 19:51:13 +0000 (19:51 +0000)
        * cpp.c (gfc_cpp_handle_option): Add missing break.
        * trans-io.c (transfer_expr): Silence unused value warning.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@206487 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/fortran/ChangeLog
gcc/fortran/cpp.c
gcc/fortran/trans-io.c

index 34b5cd8..bb8c04c 100644 (file)
@@ -1,3 +1,8 @@
+2014-01-09  Tobias Burnus  <burnus@net-b.de>
+
+       * cpp.c (gfc_cpp_handle_option): Add missing break.
+       * trans-io.c (transfer_expr): Silence unused value warning.
+
 2014-01-08  Janus Weil  <janus@gcc.gnu.org>
 
        PR fortran/58182
index 37bc13b..68ce91f 100644 (file)
@@ -363,6 +363,7 @@ gfc_cpp_handle_option (size_t scode, const char *arg, int value ATTRIBUTE_UNUSED
 
     case OPT_Wdate_time:
       gfc_cpp_option.warn_date_time = value;
+      break;
 
     case OPT_A:
     case OPT_D:
index ba27f81..853e77d 100644 (file)
@@ -2152,7 +2152,7 @@ transfer_expr (gfc_se * se, gfc_typespec * ts, tree addr_expr, gfc_code * code)
         function, if only referenced in an io statement, requires this
         check (see PR58771).  */
       if (ts->u.derived->backend_decl == NULL_TREE)
-       tmp = gfc_typenode_for_spec (ts);
+       (void) gfc_typenode_for_spec (ts);
 
       for (c = ts->u.derived->components; c; c = c->next)
        {