Home | History | Annotate | Download | only in fortran

Lines Matching refs:block_name

8343   const char *block_name;
8357   block_name = gfc_current_block () == NULL
8364       if (startswith (block_name, "block@"))
8365 	block_name = NULL;
8371       block_name = gfc_state_stack->previous->sym == NULL
8569       if (!block_name)
8573 		 block_name, gfc_ascii_statement (*st), &old_loc);
8593   if (block_name == NULL)
8599     block_name = strchr (block_name, '.') + 1;
8601   if (strcmp (name, block_name) != 0 && strcmp (block_name, "ppr@") != 0)
8603       gfc_error ("Expected label %qs for %s statement at %C", block_name,
8608   else if (strcmp (block_name, "ppr@") == 0