gcc/fortran/trans-stmt.c

5884 gfc_trans_where_3 (gfc_code * cblock, gfc_code * eblock)
5907   edst = eblock ? eblock->next->expr1 : NULL;
5908   esrc = eblock ? eblock->next->expr2 : NULL;
5931   if (eblock)
5953   if (eblock)
5967   if (eblock)
5985   if (eblock)
5995   estmt = eblock ? gfc_trans_scalar_assign (&edse, &esse, edst->ts,
6021   gfc_code *eblock;
6028       eblock = cblock->block;
6029       if (!eblock)
6040       else if (!eblock->expr1
6041 	       && !eblock->block
6042 	       && eblock->next
6043 	       && eblock->next->op == EXEC_ASSIGN
6044 	       && !eblock->next->next)
6058 	      && !gfc_check_dependency (eblock->next->expr1,
6061 				       eblock->next->expr2, 1)
6062 	      && !gfc_check_dependency (eblock->next->expr1,
6066 	      && !gfc_check_dependency (eblock->next->expr1,
6067 				       eblock->next->expr2, 1)
6069 				       eblock->next->expr1, 0)
6070 	      && !gfc_check_dependency (eblock->next->expr1,
6072 	    return gfc_trans_where_3 (cblock, eblock);