C++ (Cpp) g95_match_labelの例

コード例 #1

ファイル: select.c プロジェクト: pathscale/fortran-fe

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;       
}      

コード例 #2

ファイル: select.c プロジェクト: jasonlarkin/disorder

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;
}