match g95_match_select(void) { g95_expr *e1; match f; f = g95_match_label(); if (f == MATCH_ERROR) return f; f = g95_match(" select case ( %e )%t", &e1); if (f != MATCH_YES) return f; new_st.type = EXEC_SELECT; new_st.expr = e1; return MATCH_YES; }
match g95_match_select(void) { g95_expr *expr; match m, m1; m1 = g95_match_label(); if (m1 == MATCH_ERROR) return m1; m = g95_match(" select case ( %e )%t", &expr); if (m != MATCH_YES) return m; if (m1 == MATCH_YES && G95_STRICT_F()) { g95_error("Construct name for SELECT CASE statement at %C not " "permitted in F"); return MATCH_ERROR; } new_st.type = EXEC_SELECT; new_st.expr = expr; return MATCH_YES; }