19 lines
398 B
Plaintext
19 lines
398 B
Plaintext
' Concurrent computing using the OpenMP extension in GCC. Requires BaCon 3.6 or higher.
|
|
|
|
' Specify compiler flag
|
|
PRAGMA OPTIONS -fopenmp
|
|
|
|
' Sepcify linker flag
|
|
PRAGMA LDFLAGS -lgomp
|
|
|
|
' Declare array with text
|
|
DECLARE str$[] = { "Enjoy", "Rosetta", "Code" }
|
|
|
|
' Indicate MP optimization for FOR loop
|
|
PRAGMA omp parallel for num_threads(3)
|
|
|
|
' The actual FOR loop
|
|
FOR i = 0 TO 2
|
|
PRINT str$[i]
|
|
NEXT
|