gcc/fortran/match.cc

584   m = gfc_match (" %n :", name);
973   m = gfc_match (" %n =", name);
1091 gfc_match (const char *target, ...)
1213 	  gfc_internal_error ("gfc_match(): Bad match code %c", c);
1283   m = gfc_match ("% %s%t", &sym);
1315   m = gfc_match (" %v =", &lvalue);
1324   m = gfc_match (" %e%t", &rvalue);
1386   m = gfc_match (" %v =>", &lvalue);
1399   m = gfc_match (" %e%t", &rvalue);
1431   m = gfc_match (" ( %e ) %l , %l , %l%t", &expr, &l1, &l2, &l3);
1485   m = gfc_match (" if ", &expr);
1495   m = gfc_match ("%e", &expr);
1514   m = gfc_match (" %l , %l , %l%t", &l1, &l2, &l3);
1548   if (gfc_match (" then%t") == MATCH_YES)
1584   gfc_match (" if ( %e ) ", &expr);	/* Guaranteed to match.  */
1594   gfc_match (" if ( %e ) ", &expr);	/* Guaranteed to match.  */
1601   if (gfc_match (string) == MATCH_YES) { m = subr(); goto got_match; }
1732   m = gfc_match (" %e ", &expr);
1742   m = gfc_match (" then ", &then);
1814   if (gfc_match (" critical") != MATCH_YES)
1877   if (gfc_match (" block") != MATCH_YES)
1899   if (gfc_match (" associate") != MATCH_YES)
1915       if (gfc_match (" %n =>", newAssoc->name) != MATCH_YES)
1921       if (gfc_match (" %e", &newAssoc->target) != MATCH_YES)
1925 	  if (gfc_match (" %e", &newAssoc->target) != MATCH_YES)
2017   if (gfc_match ("%n", name) != MATCH_YES)
2119   if (gfc_match ("integer") == MATCH_YES)
2126   if (gfc_match ("double precision") == MATCH_YES)
2133   if (gfc_match ("complex") == MATCH_YES)
2140   if (gfc_match ("character") == MATCH_YES)
2159   m = gfc_match (" %n", name);
2201       m = gfc_match ("%n", name);
2534   m = gfc_match (" forall");
2609   if (gfc_match (" do") != MATCH_YES)
2626   if (gfc_match_char (',') != MATCH_YES && gfc_match ("% ") != MATCH_YES)
2634   if (gfc_match (" concurrent") == MATCH_YES)
2674   if (gfc_match (" while ( %e )%t", &iter.end) == MATCH_YES)
2686   gfc_match (" do ");		/* This will work.  */
2749       m = gfc_match ("% %n%t", name);
3101   if (gfc_match (" , quiet = %e", &quiet) == MATCH_YES)
3329   if (gfc_match ("%e", &eventvar) != MATCH_YES)
3344       m = gfc_match (" stat = %v", &tmp);
3365       m = gfc_match (" errmsg = %v", &tmp);
3386       m = gfc_match (" until_count = %e", &tmp);
3414   if (gfc_match (" )%t") != MATCH_YES)
3513   if (gfc_match ("%e", &teamid) != MATCH_YES)
3518   if (gfc_match ("%e", &team) != MATCH_YES)
3552   if (gfc_match ("%e", &team) != MATCH_YES)
3606   if (gfc_match ("%e", &team) != MATCH_YES)
3671   if (gfc_match ("%e", &lockvar) != MATCH_YES)
3686       m = gfc_match (" stat = %v", &tmp);
3707       m = gfc_match (" errmsg = %v", &tmp);
3728       m = gfc_match (" acquired_lock = %v", &tmp);
3756   if (gfc_match (" )%t") != MATCH_YES)
3881 	  if (gfc_match ("%e", &imageset) != MATCH_YES)
3898       m = gfc_match (" stat = %e", &tmp);
3918       m = gfc_match (" errmsg = %e", &tmp);
3941   if (gfc_match (" )%t") != MATCH_YES)
4033   if (gfc_match (" %l", &label) == MATCH_YES)
4037       if (gfc_match (" to %v%t", &expr) == MATCH_YES)
4069   if (gfc_match (" %l%t", &label) == MATCH_YES)
4122       if (gfc_match (" )%t") != MATCH_YES)
4185   if (gfc_match (" %e%t", &expr) != MATCH_YES)
4261       if (gfc_match ("%n :: ", name) == MATCH_YES)
4274       if (gfc_match (" :: ") == MATCH_YES)
4449       m = gfc_match (" stat = %e", &tmp);
4478       m = gfc_match (" errmsg = %e", &tmp);
4501       m = gfc_match (" source = %e", &tmp);
4538       m = gfc_match (" mold = %e", &tmp);
4576   if (gfc_match (" )%t") != MATCH_YES)
4708       if (gfc_match (" )%t") == MATCH_YES)
4821       m = gfc_match (" stat = %e", &tmp);
4843       m = gfc_match (" errmsg = %e", &tmp);
4871   if (gfc_match (" )%t") != MATCH_YES)
4936   m = gfc_match (" %e%t", &e);
5031   m = gfc_match ("% %n", name);
5497   m = gfc_match ("% %n%t", name);
5563   m = gfc_match (" / %s /", &group_name);
5649 	      m2 = gfc_match (" %s /", &group_name);
5680   m = gfc_match (" %s%t", &gfc_new_block);
5966   m = gfc_match (" = %e%t", &expr);
6049   m = gfc_match (" %e", &expr);
6057   m = gfc_match (" = %e%t", &expr);
6237   m = gfc_match (" select case ( %e )%t", &expr);
6504   m = gfc_match (" select type ( ");
6516   m = gfc_match (" %n => %e", name, &expr2);
6540       m = gfc_match (" %e ", &expr1);
6549   m = gfc_match (" )%t");
6729   m = gfc_match (" select rank ( ");
6737   m = gfc_match (" %n => %e", name, &expr2);
6796       m = gfc_match (" %e ", &expr1);
6823   m = gfc_match (" )%t");
6866   if (gfc_match ("% default") == MATCH_YES)
7006   if (gfc_match ("% default") == MATCH_YES)
7023   m = gfc_match ("% is");
7086   if (gfc_match ("% default") == MATCH_YES)
7184   m = gfc_match (" ( %e )", &expr);
7232   m = gfc_match (" where ( %e )", &expr);