! { dg-do compile } ! { dg-options "-fopenmp -O0" } ! ! PR 42484: ICE with -fopenmp ! ! Contributed by Janus Weil subroutine sub integer :: nRead !$omp critical if (nRead<3) return ! { dg-error "invalid branch" } !$omp end critical end subroutine