[Bug fortran/51024] OpenMP: ICE with type(c_ptr) in private()

[pinskia at gcc dot gnu.org]

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

Andrew Pinski <pinskia at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2011-12-15
          Component|middle-end                  |fortran
     Ever Confirmed|0                           |1

--- Comment #1 from Andrew Pinski <pinskia at gcc dot gnu.org> 2011-12-15 
00:45:42 UTC ---
Confirmed, I think the issue is gfc_omp_privatize_by_reference is returning
true when it should be returning false for C_PTR.
      if (!DECL_ARTIFICIAL (decl)
      && TREE_CODE (TREE_TYPE (type)) != FUNCTION_TYPE)
    return true;