Handle GIMPLE_COND in diagnose_sb_2.

gcc/

2009-12-28  H.J. Lu  <hongjiu.lu@intel.com>

	PR middle-end/41344
	* omp-low.c (diagnose_sb_2): Handle GIMPLE_COND.

gcc/testsuite/

2009-12-28  H.J. Lu  <hongjiu.lu@intel.com>

	* gfortran.dg/gomp/pr41344.f: New.

From-SVN: r155487

gcc/ChangeLog

+2009-12-28  H.J. Lu  <hongjiu.lu@intel.com>
+
+	PR middle-end/41344
+	* omp-low.c (diagnose_sb_2): Handle GIMPLE_COND.
+
 2009-12-24  Andy Hutchinson  <hutchinsonandy@gcc.gnu.org>
 
 	PR target/42457

gcc/omp-low.c

@@ -6858,6 +6858,27 @@ diagnose_sb_2 (gimple_stmt_iterator *gsi_p, bool *handled_ops_p,
       wi->info = context;
       break;
 
+    case GIMPLE_COND:
+	{
+	  tree lab = gimple_cond_true_label (stmt);
+	  if (lab)
+	    {
+	      n = splay_tree_lookup (all_labels,
+				     (splay_tree_key) lab);
+	      diagnose_sb_0 (gsi_p, context,
+			     n ? (gimple) n->value : NULL);
+	    }
+	  lab = gimple_cond_false_label (stmt);
+	  if (lab)
+	    {
+	      n = splay_tree_lookup (all_labels,
+				     (splay_tree_key) lab);
+	      diagnose_sb_0 (gsi_p, context,
+			     n ? (gimple) n->value : NULL);
+	    }
+	}
+      break;
+
     case GIMPLE_GOTO:
       {
 	tree lab = gimple_goto_dest (stmt);

gcc/testsuite/ChangeLog

+2009-12-28  H.J. Lu  <hongjiu.lu@intel.com>
+
+	* gfortran.dg/gomp/pr41344.f: New.
+
 2009-12-27  Martin Jambor  <mjambor@suse.cz>
 
 	PR tree-optimization/42231

gcc/testsuite/gfortran.dg/gomp/pr41344.f

+      subroutine xrotate(nerr)
+
+      common /dfm/ndfl
+
+*$omp parallel private(ix)
+      ix = 0
+*$omp do
+      do i=1,ndfl
+         ix = ix + 1
+	 if (ix.gt.5) go to 9000 ! { dg-error "invalid (exit|branch)" }
+      enddo
+*$omp end do
+*$omp end parallel
+
+9000  continue
+      end