[Bug fortran/47886] ICE: OpenMP !$omp task if(omp_get_num_threads() > 0)

[burnus at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=47886

Tobias Burnus <burnus at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |openmp
                 CC|                            |burnus at gcc dot gnu.org

--- Comment #1 from Tobias Burnus <burnus at gcc dot gnu.org> 2011-02-24 22:09:26 UTC ---
The failing line is seemingly (exr->value.op.op == INTRINSIC_GT):

   !$omp task if(omp_get_num_threads() > 0)

Failing assert is:
  gcc_assert (expr->value.op.op1->ts.type == expr->value.op.op2->ts.type);

op2 is as expected BT_INTEGER (EXPR_CONSTANT) while op1 is BT_UNKNOWN
(EXPR_FUNCTION, omp_get_num_threads)