Bug fix: crash if teams executed on host.

[tlwilmar]

Summary

Bug fix: crash if teams executed on host.
Added argv array check/allocation for parallel directly nested
inside the teams construct, as new coming Fortran codegen
passes parameters directly into kmpc_fork_call missing same
parameters in kmpc_fork_teams (earlier codegen passed to
parallel the subset of parameter passed to teams, and thus
no check/allocation needed).

Patch by Andrey Churbanov

[AndreyChurbanov]

LGTM

openmp/trunk/runtime/src/kmp_runtime.c

 
 #if OMP_40_ENABLED
     if ( master_th->th.th_teams_microtask &&
          ap && microtask != (microtask_t)__kmp_teams_master && level == teams_level ) {
         // AC: This is start of parallel that is nested inside teams construct.
         //     The team is actual (hot), all workers are ready at the fork barrier.
         //     No lock needed to initialize the team a bit, then free workers.
         parent_team->t.t_ident = loc;
+        __kmp_alloc_argv_entries( argc, parent_team, TRUE );
         parent_team->t.t_argc  = argc;
         argv = (void**)parent_team->t.t_argv;
         for( i=argc-1; i >= 0; --i )
 /* TODO: revert workaround for Intel(R) 64 tracker #96 */
 #if (KMP_ARCH_X86_64 || KMP_ARCH_ARM || KMP_ARCH_AARCH64) && KMP_OS_LINUX
             *argv++ = va_arg( *ap, void * );
 #else
             *argv++ = va_arg( ap, void * );