57 lines
		
	
	
		
			1.4 KiB
		
	
	
	
		
			C
		
	
	
	
			
		
		
	
	
			57 lines
		
	
	
		
			1.4 KiB
		
	
	
	
		
			C
		
	
	
	
| // RUN: %libomp-compile-and-run
 | |
| // RUN: %libomp-run | %python %S/check.py -c 'CHECK' %s
 | |
| 
 | |
| #include <stdio.h>
 | |
| #include <stdlib.h>
 | |
| #include <string.h>
 | |
| #include <omp.h>
 | |
| 
 | |
| #define XSTR(x) #x
 | |
| #define STR(x) XSTR(x)
 | |
| 
 | |
| #define streqls(s1, s2) (!strcmp(s1, s2))
 | |
| 
 | |
| #define check(condition)                                                       \
 | |
|   if (!(condition)) {                                                          \
 | |
|     fprintf(stderr, "error: %s: %d: " STR(condition) "\n", __FILE__,           \
 | |
|             __LINE__);                                                         \
 | |
|     exit(1);                                                                   \
 | |
|   }
 | |
| 
 | |
| #define BUFFER_SIZE 1024
 | |
| 
 | |
| int main(int argc, char** argv) {
 | |
|   char buf[BUFFER_SIZE];
 | |
|   size_t needed;
 | |
| 
 | |
|   omp_set_affinity_format("0123456789");
 | |
| 
 | |
|   needed = omp_get_affinity_format(buf, BUFFER_SIZE);
 | |
|   check(streqls(buf, "0123456789"));
 | |
|   check(needed == 10)
 | |
| 
 | |
|   // Check that it is truncated properly
 | |
|   omp_get_affinity_format(buf, 5);
 | |
|   check(streqls(buf, "0123"));
 | |
| 
 | |
|   #pragma omp parallel
 | |
|   {
 | |
|     char my_buf[512];
 | |
|     size_t needed = omp_capture_affinity(my_buf, 512, NULL);
 | |
|     check(streqls(my_buf, "0123456789"));
 | |
|     check(needed == 10);
 | |
|     // Check that it is truncated properly
 | |
|     omp_capture_affinity(my_buf, 5, NULL);
 | |
|     check(streqls(my_buf, "0123"));
 | |
|   }
 | |
| 
 | |
|   #pragma omp parallel num_threads(4)
 | |
|   {
 | |
|     omp_display_affinity(NULL);
 | |
|   }
 | |
| 
 | |
|   return 0;
 | |
| }
 | |
| 
 | |
| // CHECK: num_threads=4 0123456789
 |