[OMPT] Make omp_control_tool() compliant when called from Fortran programs

[hbae]

Summary

This change fixes an incorrect behavior of the omp_control_tool function when
called from Fortran applications.
A tool callback function for this event is supposed to get NULL for the third
argument according to the specification, but the current implementation just
passes a garbage value. A possible fix is to use the OPTIONAL attribute for the
third argument.

[protze.joachim]

Thanks for catching this. It seems like we need some Fortran tests for OMPT.
LGTM

openmp/trunk/runtime/src/include/50/omp_lib.h.var

!       ***
         end subroutine omp_init_lock_with_hint
 
         subroutine omp_init_nest_lock_with_hint(nvar, hint) bind(c)
           import
           integer (kind=omp_nest_lock_kind) nvar
           integer (kind=omp_lock_hint_kind), value :: hint
         end subroutine omp_init_nest_lock_with_hint
 
-        function omp_control_tool(command, modifier) bind(c)
+        function omp_control_tool(command, modifier, arg) bind(c)
           import
           integer (kind=omp_integer_kind) omp_control_tool
           integer (kind=omp_control_tool_kind), value :: command
           integer (kind=omp_control_tool_kind), value :: modifier
+          integer (kind=kmp_pointer_kind), optional :: arg
         end function omp_control_tool
 
       end interface
 
 !DIR$ IF DEFINED (__INTEL_OFFLOAD)
 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_num_threads
 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_dynamic
 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_nested

openmp/trunk/runtime/src/include/50/omp_lib.f90.var

!         ***
           end subroutine omp_init_lock_with_hint
 
           subroutine omp_init_nest_lock_with_hint(nvar, hint) bind(c)
             use omp_lib_kinds
             integer (kind=omp_nest_lock_kind) nvar
             integer (kind=omp_lock_hint_kind), value :: hint
           end subroutine omp_init_nest_lock_with_hint
 
-          function omp_control_tool(command, modifier) bind(c)
+          function omp_control_tool(command, modifier, arg) bind(c)
             use omp_lib_kinds
             integer (kind=omp_integer_kind) omp_control_tool
             integer (kind=omp_control_tool_kind), value :: command
             integer (kind=omp_control_tool_kind), value :: modifier
+            integer (kind=kmp_pointer_kind), optional :: arg
           end function omp_control_tool
 
         end interface
 
       end module omp_lib