Commit 2a9e9a65 by Tobias Burnus Committed by Tobias Burnus

cpp.c (gfc_cpp_handle_option): Add missing break.

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.

From-SVN: r206487
parent 46dd1242
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> 2014-01-08 Janus Weil <janus@gcc.gnu.org>
PR fortran/58182 PR fortran/58182
......
...@@ -363,6 +363,7 @@ gfc_cpp_handle_option (size_t scode, const char *arg, int value ATTRIBUTE_UNUSED ...@@ -363,6 +363,7 @@ gfc_cpp_handle_option (size_t scode, const char *arg, int value ATTRIBUTE_UNUSED
case OPT_Wdate_time: case OPT_Wdate_time:
gfc_cpp_option.warn_date_time = value; gfc_cpp_option.warn_date_time = value;
break;
case OPT_A: case OPT_A:
case OPT_D: case OPT_D:
......
...@@ -2152,7 +2152,7 @@ transfer_expr (gfc_se * se, gfc_typespec * ts, tree addr_expr, gfc_code * code) ...@@ -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 function, if only referenced in an io statement, requires this
check (see PR58771). */ check (see PR58771). */
if (ts->u.derived->backend_decl == NULL_TREE) 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) for (c = ts->u.derived->components; c; c = c->next)
{ {
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment