[bolt-discuss] Error ABT_mutex_lock: 20

[Carlos Henrique Rebollo]

Hello,

I Have compiled llvm 3.9.1 bolt 1.0a1 and argobots 1.0a1

And tried use in simple task code.

And I have get this on execution.

[mutex.c:172] ABT_mutex_lock: 20
Segmentation fault (core dumped)

Worked with gcc and icc.


Best wishes,

Carlos Rebollo.

gdb information

Core was generated by `./a.out'.
Program terminated with signal 11, Segmentation fault.
#0  0x00007f64ca2426c2 in ABT_mutex_create ()
    from /usr/local/llvm-bolt-argobots/lib/../lib/libabt.so.0
(gdb) where
#0  0x00007f64ca2426c2 in ABT_mutex_create ()
    from /usr/local/llvm-bolt-argobots/lib/../lib/libabt.so.0
#1  0x00007f64caa75300 in __kmp_do_serial_initialize ()
     at 
/usr/local/src/llvm/projects/openmp/runtime/src/abt/kmp_abt_runtime.c:139
#2  0x00007f64caa75a5a in __kmp_do_middle_initialize ()
     at 
/usr/local/src/llvm/projects/openmp/runtime/src/abt/kmp_abt_runtime.c:363
#3  0x00007f64caa75ddb in __kmp_middle_initialize ()
     at 
/usr/local/src/llvm/projects/openmp/runtime/src/abt/kmp_abt_runtime.c:470
#4  0x00007f64caa99362 in __kmp_api_omp_get_num_procs ()
     at 
/usr/local/src/llvm/projects/openmp/runtime/src/abt/kmp_abt_ftn_entry.h:444
#5  0x0000000000400b09 in main ()

code

#include <stdio.h>
#include <stdlib.h>
#include <omp.h>
#include <unistd.h>


int main(){
         int i=0,j=0,res;
         int mprocs=0;
         int *pprocs;
         pprocs=malloc(sizeof(int)*omp_get_num_procs());
         for(i=0;i<omp_get_num_procs();i++)
                 pprocs[i]=0;
         #pragma omp parallel private(res)
         {
                 res=0;
                 #pragma omp for private(i,j) nowait
                 for(i=0;i<omp_get_num_procs()*10;i++){
                         for(j=0;j<omp_get_thread_num()*100;j++)
                         {
                                 res=res+1;
                                 //printf("for %i,%i res=%i thread 
%i\n",i,j,res,omp_get_thread_num());
                         }
                 }
                 printf("res=%i thread %i\n",res,omp_get_thread_num());
                 #pragma omp single
                 {
                         printf("Processo %i dentro single total %i\n",
omp_get_thread_num(),omp_get_num_threads());
                         for(i=0;i<omp_get_num_procs()*10;i++){
                         #pragma omp task
                         {
                                 pprocs[omp_get_thread_num()]++;
                                 if( omp_get_num_threads() > mprocs )
mprocs=omp_get_num_threads();

                                 printf("Processo %i dentro task total 
%i\n",
omp_get_thread_num(),omp_get_num_threads());
                         }
                         }
                 }
         }
         for(i=0;i<omp_get_num_procs();i++)
                 printf("%i process %i itens\n",i,pprocs[i]);
         printf("quantidade de processos %i\n",mprocs);
         free(pprocs); pprocs=NULL;
         return 0;
}