676 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=452! Check OpenMP 'if' clause validity for all directives that can have it with OpenMP 453 4program main5 integer :: i6 7 ! ----------------------------------------------------------------------------8 ! DISTRIBUTE PARALLEL DO9 ! ----------------------------------------------------------------------------10 !$omp teams11 !$omp distribute parallel do if(.true.)12 do i = 1, 1013 end do14 !$omp end distribute parallel do15 16 !$omp distribute parallel do if(parallel: .true.)17 do i = 1, 1018 end do19 !$omp end distribute parallel do20 21 !ERROR: TARGET is not a constituent of the DISTRIBUTE PARALLEL DO directive22 !$omp distribute parallel do if(target: .true.)23 do i = 1, 1024 end do25 !$omp end distribute parallel do26 27 !ERROR: At most one IF clause can appear on the DISTRIBUTE PARALLEL DO directive28 !$omp distribute parallel do if(.true.) if(parallel: .false.)29 do i = 1, 1030 end do31 !$omp end distribute parallel do32 !$omp end teams33 34 ! ----------------------------------------------------------------------------35 ! DISTRIBUTE PARALLEL DO SIMD36 ! ----------------------------------------------------------------------------37 !$omp teams38 !$omp distribute parallel do simd if(.true.)39 do i = 1, 1040 end do41 !$omp end distribute parallel do simd42 43 !ERROR: SIMD is not allowed as 'directive-name-modifier' in OpenMP v4.5, try -fopenmp-version=5044 !$omp distribute parallel do simd if(parallel: .true.) if(simd: .false.)45 do i = 1, 1046 end do47 !$omp end distribute parallel do simd48 49 !ERROR: TARGET is not a constituent of the DISTRIBUTE PARALLEL DO SIMD directive50 !$omp distribute parallel do simd if(target: .true.)51 do i = 1, 1052 end do53 !$omp end distribute parallel do simd54 !$omp end teams55 56 ! ----------------------------------------------------------------------------57 ! DISTRIBUTE SIMD58 ! ----------------------------------------------------------------------------59 !$omp teams60 !ERROR: IF clause is not allowed on directive DISTRIBUTE SIMD in OpenMP v4.5, try -fopenmp-version=5061 !$omp distribute simd if(.true.)62 do i = 1, 1063 end do64 !$omp end distribute simd65 66 !ERROR: IF clause is not allowed on directive DISTRIBUTE SIMD in OpenMP v4.5, try -fopenmp-version=5067 !ERROR: SIMD is not allowed as 'directive-name-modifier' in OpenMP v4.5, try -fopenmp-version=5068 !$omp distribute simd if(simd: .true.)69 do i = 1, 1070 end do71 !$omp end distribute simd72 73 !ERROR: IF clause is not allowed on directive DISTRIBUTE SIMD in OpenMP v4.5, try -fopenmp-version=5074 !ERROR: TARGET is not a constituent of the DISTRIBUTE SIMD directive75 !$omp distribute simd if(target: .true.)76 do i = 1, 1077 end do78 !$omp end distribute simd79 80 !ERROR: IF clause is not allowed on directive DISTRIBUTE SIMD in OpenMP v4.5, try -fopenmp-version=5081 !ERROR: IF clause is not allowed on directive DISTRIBUTE SIMD in OpenMP v4.5, try -fopenmp-version=5082 !ERROR: At most one IF clause can appear on the DISTRIBUTE SIMD directive83 !ERROR: SIMD is not allowed as 'directive-name-modifier' in OpenMP v4.5, try -fopenmp-version=5084 !$omp distribute simd if(.true.) if(simd: .false.)85 do i = 1, 1086 end do87 !$omp end distribute simd88 !$omp end teams89 90 ! ----------------------------------------------------------------------------91 ! DO SIMD92 ! ----------------------------------------------------------------------------93 !ERROR: IF clause is not allowed on directive DO SIMD in OpenMP v4.5, try -fopenmp-version=5094 !$omp do simd if(.true.)95 do i = 1, 1096 end do97 !$omp end do simd98 99 !ERROR: IF clause is not allowed on directive DO SIMD in OpenMP v4.5, try -fopenmp-version=50100 !ERROR: SIMD is not allowed as 'directive-name-modifier' in OpenMP v4.5, try -fopenmp-version=50101 !$omp do simd if(simd: .true.)102 do i = 1, 10103 end do104 !$omp end do simd105 106 !ERROR: IF clause is not allowed on directive DO SIMD in OpenMP v4.5, try -fopenmp-version=50107 !ERROR: TARGET is not a constituent of the DO SIMD directive108 !$omp do simd if(target: .true.)109 do i = 1, 10110 end do111 !$omp end do simd112 113 !ERROR: IF clause is not allowed on directive DO SIMD in OpenMP v4.5, try -fopenmp-version=50114 !ERROR: IF clause is not allowed on directive DO SIMD in OpenMP v4.5, try -fopenmp-version=50115 !ERROR: At most one IF clause can appear on the DO SIMD directive116 !ERROR: SIMD is not allowed as 'directive-name-modifier' in OpenMP v4.5, try -fopenmp-version=50117 !$omp do simd if(.true.) if(simd: .false.)118 do i = 1, 10119 end do120 !$omp end do simd121 122 ! ----------------------------------------------------------------------------123 ! PARALLEL124 ! ----------------------------------------------------------------------------125 !$omp parallel if(.true.)126 !$omp end parallel127 128 !$omp parallel if(parallel: .true.)129 !$omp end parallel130 131 !ERROR: TARGET is not a constituent of the PARALLEL directive132 !$omp parallel if(target: .true.)133 !$omp end parallel134 135 !ERROR: At most one IF clause can appear on the PARALLEL directive136 !$omp parallel if(.true.) if(parallel: .false.)137 !$omp end parallel138 139 ! ----------------------------------------------------------------------------140 ! PARALLEL DO141 ! ----------------------------------------------------------------------------142 !$omp parallel do if(.true.)143 do i = 1, 10144 end do145 !$omp end parallel do146 147 !$omp parallel do if(parallel: .true.)148 do i = 1, 10149 end do150 !$omp end parallel do151 152 !ERROR: TARGET is not a constituent of the PARALLEL DO directive153 !$omp parallel do if(target: .true.)154 do i = 1, 10155 end do156 !$omp end parallel do157 158 !ERROR: At most one IF clause can appear on the PARALLEL DO directive159 !$omp parallel do if(.true.) if(parallel: .false.)160 do i = 1, 10161 end do162 !$omp end parallel do163 164 ! ----------------------------------------------------------------------------165 ! PARALLEL DO SIMD166 ! ----------------------------------------------------------------------------167 !$omp parallel do simd if(.true.)168 do i = 1, 10169 end do170 !$omp end parallel do simd171 172 !ERROR: SIMD is not allowed as 'directive-name-modifier' in OpenMP v4.5, try -fopenmp-version=50173 !$omp parallel do simd if(parallel: .true.) if(simd: .false.)174 do i = 1, 10175 end do176 !$omp end parallel do simd177 178 !ERROR: TARGET is not a constituent of the PARALLEL DO SIMD directive179 !$omp parallel do simd if(target: .true.)180 do i = 1, 10181 end do182 !$omp end parallel do simd183 184 ! ----------------------------------------------------------------------------185 ! PARALLEL SECTIONS186 ! ----------------------------------------------------------------------------187 !$omp parallel sections if(.true.)188 !$omp end parallel sections189 190 !$omp parallel sections if(parallel: .true.)191 !$omp end parallel sections192 193 !ERROR: TARGET is not a constituent of the PARALLEL SECTIONS directive194 !$omp parallel sections if(target: .true.)195 !$omp end parallel sections196 197 !ERROR: At most one IF clause can appear on the PARALLEL SECTIONS directive198 !$omp parallel sections if(.true.) if(parallel: .false.)199 !$omp end parallel sections200 201 ! ----------------------------------------------------------------------------202 ! PARALLEL WORKSHARE203 ! ----------------------------------------------------------------------------204 !$omp parallel workshare if(.true.)205 !$omp end parallel workshare206 207 !$omp parallel workshare if(parallel: .true.)208 !$omp end parallel workshare209 210 !ERROR: TARGET is not a constituent of the PARALLEL WORKSHARE directive211 !$omp parallel workshare if(target: .true.)212 !$omp end parallel workshare213 214 !ERROR: At most one IF clause can appear on the PARALLEL WORKSHARE directive215 !$omp parallel workshare if(.true.) if(parallel: .false.)216 !$omp end parallel workshare217 218 ! ----------------------------------------------------------------------------219 ! SIMD220 ! ----------------------------------------------------------------------------221 !ERROR: IF clause is not allowed on directive SIMD in OpenMP v4.5, try -fopenmp-version=50222 !$omp simd if(.true.)223 do i = 1, 10224 end do225 !$omp end simd226 227 !ERROR: IF clause is not allowed on directive SIMD in OpenMP v4.5, try -fopenmp-version=50228 !ERROR: SIMD is not allowed as 'directive-name-modifier' in OpenMP v4.5, try -fopenmp-version=50229 !$omp simd if(simd: .true.)230 do i = 1, 10231 end do232 !$omp end simd233 234 !ERROR: IF clause is not allowed on directive SIMD in OpenMP v4.5, try -fopenmp-version=50235 !ERROR: TARGET is not a constituent of the SIMD directive236 !$omp simd if(target: .true.)237 do i = 1, 10238 end do239 !$omp end simd240 241 !ERROR: IF clause is not allowed on directive SIMD in OpenMP v4.5, try -fopenmp-version=50242 !ERROR: IF clause is not allowed on directive SIMD in OpenMP v4.5, try -fopenmp-version=50243 !ERROR: At most one IF clause can appear on the SIMD directive244 !ERROR: SIMD is not allowed as 'directive-name-modifier' in OpenMP v4.5, try -fopenmp-version=50245 !$omp simd if(.true.) if(simd: .false.)246 do i = 1, 10247 end do248 !$omp end simd249 250 ! ----------------------------------------------------------------------------251 ! TARGET252 ! ----------------------------------------------------------------------------253 !$omp target if(.true.)254 !$omp end target255 256 !$omp target if(target: .true.)257 !$omp end target258 259 !ERROR: PARALLEL is not a constituent of the TARGET directive260 !$omp target if(parallel: .true.)261 !$omp end target262 263 !ERROR: At most one IF clause can appear on the TARGET directive264 !$omp target if(.true.) if(target: .false.)265 !$omp end target266 267 ! ----------------------------------------------------------------------------268 ! TARGET DATA269 ! ----------------------------------------------------------------------------270 !$omp target data map(tofrom: i) if(.true.)271 !$omp end target data272 273 !$omp target data map(tofrom: i) if(target data: .true.)274 !$omp end target data275 276 !ERROR: TARGET is not a constituent of the TARGET DATA directive277 !$omp target data map(tofrom: i) if(target: .true.)278 !$omp end target data279 280 !ERROR: At most one IF clause can appear on the TARGET DATA directive281 !$omp target data map(tofrom: i) if(.true.) if(target data: .false.)282 !$omp end target data283 284 ! ----------------------------------------------------------------------------285 ! TARGET ENTER DATA286 ! ----------------------------------------------------------------------------287 !$omp target enter data map(to: i) if(.true.)288 289 !$omp target enter data map(to: i) if(target enter data: .true.)290 291 !ERROR: TARGET is not a constituent of the TARGET ENTER DATA directive292 !$omp target enter data map(to: i) if(target: .true.)293 294 !ERROR: At most one IF clause can appear on the TARGET ENTER DATA directive295 !$omp target enter data map(to: i) if(.true.) if(target enter data: .false.)296 297 ! ----------------------------------------------------------------------------298 ! TARGET EXIT DATA299 ! ----------------------------------------------------------------------------300 !$omp target exit data map(from: i) if(.true.)301 302 !$omp target exit data map(from: i) if(target exit data: .true.)303 304 !ERROR: TARGET is not a constituent of the TARGET EXIT DATA directive305 !$omp target exit data map(from: i) if(target: .true.)306 307 !ERROR: At most one IF clause can appear on the TARGET EXIT DATA directive308 !$omp target exit data map(from: i) if(.true.) if(target exit data: .false.)309 310 ! ----------------------------------------------------------------------------311 ! TARGET PARALLEL312 ! ----------------------------------------------------------------------------313 !$omp target parallel if(.true.)314 !$omp end target parallel315 316 !$omp target parallel if(target: .true.) if(parallel: .false.)317 !$omp end target parallel318 319 !ERROR: SIMD is not a constituent of the TARGET PARALLEL directive320 !$omp target parallel if(simd: .true.)321 !$omp end target parallel322 323 ! ----------------------------------------------------------------------------324 ! TARGET PARALLEL DO325 ! ----------------------------------------------------------------------------326 !$omp target parallel do if(.true.)327 do i = 1, 10328 end do329 !$omp end target parallel do330 331 !$omp target parallel do if(target: .true.) if(parallel: .false.)332 do i = 1, 10333 end do334 !$omp end target parallel do335 336 !ERROR: SIMD is not a constituent of the TARGET PARALLEL DO directive337 !$omp target parallel do if(simd: .true.)338 do i = 1, 10339 end do340 !$omp end target parallel do341 342 ! ----------------------------------------------------------------------------343 ! TARGET PARALLEL DO SIMD344 ! ----------------------------------------------------------------------------345 !$omp target parallel do simd if(.true.)346 do i = 1, 10347 end do348 !$omp end target parallel do simd349 350 !$omp target parallel do simd if(target: .true.) if(parallel: .false.) &351 !ERROR: SIMD is not allowed as 'directive-name-modifier' in OpenMP v4.5, try -fopenmp-version=50352 !$omp& if(simd: .true.)353 do i = 1, 10354 end do355 !$omp end target parallel do simd356 357 !ERROR: TEAMS is not a constituent of the TARGET PARALLEL DO SIMD directive358 !$omp target parallel do simd if(teams: .true.)359 do i = 1, 10360 end do361 !$omp end target parallel do simd362 363 ! ----------------------------------------------------------------------------364 ! TARGET SIMD365 ! ----------------------------------------------------------------------------366 !$omp target simd if(.true.)367 do i = 1, 10368 end do369 !$omp end target simd370 371 !ERROR: SIMD is not allowed as 'directive-name-modifier' in OpenMP v4.5, try -fopenmp-version=50372 !$omp target simd if(target: .true.) if(simd: .false.)373 do i = 1, 10374 end do375 !$omp end target simd376 377 !ERROR: PARALLEL is not a constituent of the TARGET SIMD directive378 !$omp target simd if(parallel: .true.)379 do i = 1, 10380 end do381 !$omp end target simd382 383 ! ----------------------------------------------------------------------------384 ! TARGET TEAMS385 ! ----------------------------------------------------------------------------386 !$omp target teams if(.true.)387 !$omp end target teams388 389 !ERROR: TEAMS is not allowed as 'directive-name-modifier' in OpenMP v4.5, try -fopenmp-version=52390 !$omp target teams if(target: .true.) if(teams: .false.)391 !$omp end target teams392 393 !ERROR: PARALLEL is not a constituent of the TARGET TEAMS directive394 !$omp target teams if(parallel: .true.)395 !$omp end target teams396 397 ! ----------------------------------------------------------------------------398 ! TARGET TEAMS DISTRIBUTE399 ! ----------------------------------------------------------------------------400 !$omp target teams distribute if(.true.)401 do i = 1, 10402 end do403 !$omp end target teams distribute404 405 !ERROR: TEAMS is not allowed as 'directive-name-modifier' in OpenMP v4.5, try -fopenmp-version=52406 !$omp target teams distribute if(target: .true.) if(teams: .false.)407 do i = 1, 10408 end do409 !$omp end target teams distribute410 411 !ERROR: PARALLEL is not a constituent of the TARGET TEAMS DISTRIBUTE directive412 !$omp target teams distribute if(parallel: .true.)413 do i = 1, 10414 end do415 !$omp end target teams distribute416 417 ! ----------------------------------------------------------------------------418 ! TARGET TEAMS DISTRIBUTE PARALLEL DO419 ! ----------------------------------------------------------------------------420 !$omp target teams distribute parallel do if(.true.)421 do i = 1, 10422 end do423 !$omp end target teams distribute parallel do424 425 !$omp target teams distribute parallel do &426 !ERROR: TEAMS is not allowed as 'directive-name-modifier' in OpenMP v4.5, try -fopenmp-version=52427 !$omp& if(target: .true.) if(teams: .false.) if(parallel: .true.)428 do i = 1, 10429 end do430 !$omp end target teams distribute parallel do431 432 !ERROR: SIMD is not a constituent of the TARGET TEAMS DISTRIBUTE PARALLEL DO directive433 !$omp target teams distribute parallel do if(simd: .true.)434 do i = 1, 10435 end do436 !$omp end target teams distribute parallel do437 438 ! ----------------------------------------------------------------------------439 ! TARGET TEAMS DISTRIBUTE PARALLEL DO SIMD440 ! ----------------------------------------------------------------------------441 !$omp target teams distribute parallel do simd if(.true.)442 do i = 1, 10443 end do444 !$omp end target teams distribute parallel do simd445 446 !$omp target teams distribute parallel do simd &447 !ERROR: TEAMS is not allowed as 'directive-name-modifier' in OpenMP v4.5, try -fopenmp-version=52448 !$omp& if(target: .true.) if(teams: .false.) if(parallel: .true.) &449 !ERROR: SIMD is not allowed as 'directive-name-modifier' in OpenMP v4.5, try -fopenmp-version=50450 !$omp& if(simd: .false.)451 do i = 1, 10452 end do453 !$omp end target teams distribute parallel do simd454 455 !ERROR: TASK is not a constituent of the TARGET TEAMS DISTRIBUTE PARALLEL DO SIMD directive456 !$omp target teams distribute parallel do simd if(task: .true.)457 do i = 1, 10458 end do459 !$omp end target teams distribute parallel do simd460 461 ! ----------------------------------------------------------------------------462 ! TARGET TEAMS DISTRIBUTE SIMD463 ! ----------------------------------------------------------------------------464 !$omp target teams distribute simd if(.true.)465 do i = 1, 10466 end do467 !$omp end target teams distribute simd468 469 !$omp target teams distribute simd &470 !ERROR: TEAMS is not allowed as 'directive-name-modifier' in OpenMP v4.5, try -fopenmp-version=52471 !ERROR: SIMD is not allowed as 'directive-name-modifier' in OpenMP v4.5, try -fopenmp-version=50472 !$omp& if(target: .true.) if(teams: .false.) if(simd: .true.)473 do i = 1, 10474 end do475 !$omp end target teams distribute simd476 477 !ERROR: PARALLEL is not a constituent of the TARGET TEAMS DISTRIBUTE SIMD directive478 !$omp target teams distribute simd if(parallel: .true.)479 do i = 1, 10480 end do481 !$omp end target teams distribute simd482 483 ! ----------------------------------------------------------------------------484 ! TARGET UPDATE485 ! ----------------------------------------------------------------------------486 !$omp target update to(i) if(.true.)487 488 !$omp target update to(i) if(target update: .true.)489 490 !ERROR: TARGET is not a constituent of the TARGET UPDATE directive491 !$omp target update to(i) if(target: .true.)492 493 !ERROR: At most one IF clause can appear on the TARGET UPDATE directive494 !$omp target update to(i) if(.true.) if(target update: .false.)495 496 ! ----------------------------------------------------------------------------497 ! TASK498 ! ----------------------------------------------------------------------------499 !$omp task if(.true.)500 !$omp end task501 502 !$omp task if(task: .true.)503 !$omp end task504 505 !ERROR: TARGET is not a constituent of the TASK directive506 !$omp task if(target: .true.)507 !$omp end task508 509 !ERROR: At most one IF clause can appear on the TASK directive510 !$omp task if(.true.) if(task: .false.)511 !$omp end task512 513 ! ----------------------------------------------------------------------------514 ! TASKLOOP515 ! ----------------------------------------------------------------------------516 !$omp taskloop if(.true.)517 do i = 1, 10518 end do519 !$omp end taskloop520 521 !$omp taskloop if(taskloop: .true.)522 do i = 1, 10523 end do524 !$omp end taskloop525 526 !ERROR: TARGET is not a constituent of the TASKLOOP directive527 !$omp taskloop if(target: .true.)528 do i = 1, 10529 end do530 !$omp end taskloop531 532 !ERROR: At most one IF clause can appear on the TASKLOOP directive533 !$omp taskloop if(.true.) if(taskloop: .false.)534 do i = 1, 10535 end do536 !$omp end taskloop537 538 ! ----------------------------------------------------------------------------539 ! TASKLOOP SIMD540 ! ----------------------------------------------------------------------------541 !$omp taskloop simd if(.true.)542 do i = 1, 10543 end do544 !$omp end taskloop simd545 546 !ERROR: SIMD is not allowed as 'directive-name-modifier' in OpenMP v4.5, try -fopenmp-version=50547 !$omp taskloop simd if(taskloop: .true.) if(simd: .false.)548 do i = 1, 10549 end do550 !$omp end taskloop simd551 552 !ERROR: TARGET is not a constituent of the TASKLOOP SIMD directive553 !$omp taskloop simd if(target: .true.)554 do i = 1, 10555 end do556 !$omp end taskloop simd557 558 ! ----------------------------------------------------------------------------559 ! TEAMS560 ! ----------------------------------------------------------------------------561 !ERROR: IF clause is not allowed on directive TEAMS in OpenMP v4.5, try -fopenmp-version=52562 !$omp teams if(.true.)563 !$omp end teams564 565 !ERROR: IF clause is not allowed on directive TEAMS in OpenMP v4.5, try -fopenmp-version=52566 !ERROR: TEAMS is not allowed as 'directive-name-modifier' in OpenMP v4.5, try -fopenmp-version=52567 !$omp teams if(teams: .true.)568 !$omp end teams569 570 !ERROR: IF clause is not allowed on directive TEAMS in OpenMP v4.5, try -fopenmp-version=52571 !ERROR: TARGET is not a constituent of the TEAMS directive572 !$omp teams if(target: .true.)573 !$omp end teams574 575 !ERROR: IF clause is not allowed on directive TEAMS in OpenMP v4.5, try -fopenmp-version=52576 !ERROR: IF clause is not allowed on directive TEAMS in OpenMP v4.5, try -fopenmp-version=52577 !ERROR: At most one IF clause can appear on the TEAMS directive578 !ERROR: TEAMS is not allowed as 'directive-name-modifier' in OpenMP v4.5, try -fopenmp-version=52579 !$omp teams if(.true.) if(teams: .false.)580 !$omp end teams581 582 ! ----------------------------------------------------------------------------583 ! TEAMS DISTRIBUTE584 ! ----------------------------------------------------------------------------585 !$omp teams distribute if(.true.)586 do i = 1, 10587 end do588 !$omp end teams distribute589 590 !ERROR: TEAMS is not allowed as 'directive-name-modifier' in OpenMP v4.5, try -fopenmp-version=52591 !$omp teams distribute if(teams: .true.)592 do i = 1, 10593 end do594 !$omp end teams distribute595 596 !ERROR: TARGET is not a constituent of the TEAMS DISTRIBUTE directive597 !$omp teams distribute if(target: .true.)598 do i = 1, 10599 end do600 !$omp end teams distribute601 602 !ERROR: At most one IF clause can appear on the TEAMS DISTRIBUTE directive603 !ERROR: TEAMS is not allowed as 'directive-name-modifier' in OpenMP v4.5, try -fopenmp-version=52604 !$omp teams distribute if(.true.) if(teams: .true.)605 do i = 1, 10606 end do607 !$omp end teams distribute608 609 ! ----------------------------------------------------------------------------610 ! TEAMS DISTRIBUTE PARALLEL DO611 ! ----------------------------------------------------------------------------612 !$omp teams distribute parallel do if(.true.)613 do i = 1, 10614 end do615 !$omp end teams distribute parallel do616 617 !ERROR: TEAMS is not allowed as 'directive-name-modifier' in OpenMP v4.5, try -fopenmp-version=52618 !$omp teams distribute parallel do if(teams: .true.) if(parallel: .false.)619 do i = 1, 10620 end do621 !$omp end teams distribute parallel do622 623 !ERROR: TARGET is not a constituent of the TEAMS DISTRIBUTE PARALLEL DO directive624 !$omp teams distribute parallel do if(target: .true.)625 do i = 1, 10626 end do627 !$omp end teams distribute parallel do628 629 ! ----------------------------------------------------------------------------630 ! TEAMS DISTRIBUTE PARALLEL DO SIMD631 ! ----------------------------------------------------------------------------632 !$omp teams distribute parallel do simd if(.true.)633 do i = 1, 10634 end do635 !$omp end teams distribute parallel do simd636 637 !$omp teams distribute parallel do simd &638 !ERROR: TEAMS is not allowed as 'directive-name-modifier' in OpenMP v4.5, try -fopenmp-version=52639 !ERROR: SIMD is not allowed as 'directive-name-modifier' in OpenMP v4.5, try -fopenmp-version=50640 !$omp& if(teams: .true.) if(parallel: .true.) if(simd: .true.)641 do i = 1, 10642 end do643 !$omp end teams distribute parallel do simd644 645 !ERROR: TARGET is not a constituent of the TEAMS DISTRIBUTE PARALLEL DO SIMD directive646 !$omp teams distribute parallel do simd if(target: .true.)647 do i = 1, 10648 end do649 !$omp end teams distribute parallel do simd650 651 ! ----------------------------------------------------------------------------652 ! TEAMS DISTRIBUTE SIMD653 ! ----------------------------------------------------------------------------654 !ERROR: IF clause is not allowed on directive TEAMS DISTRIBUTE SIMD in OpenMP v4.5, try -fopenmp-version=50655 !$omp teams distribute simd if(.true.)656 do i = 1, 10657 end do658 !$omp end teams distribute simd659 660 !ERROR: IF clause is not allowed on directive TEAMS DISTRIBUTE SIMD in OpenMP v4.5, try -fopenmp-version=50661 !ERROR: TEAMS is not allowed as 'directive-name-modifier' in OpenMP v4.5, try -fopenmp-version=52662 !ERROR: IF clause is not allowed on directive TEAMS DISTRIBUTE SIMD in OpenMP v4.5, try -fopenmp-version=50663 !ERROR: SIMD is not allowed as 'directive-name-modifier' in OpenMP v4.5, try -fopenmp-version=50664 !$omp teams distribute simd if(teams: .true.) if(simd: .true.)665 do i = 1, 10666 end do667 !$omp end teams distribute simd668 669 !ERROR: IF clause is not allowed on directive TEAMS DISTRIBUTE SIMD in OpenMP v4.5, try -fopenmp-version=50670 !ERROR: TARGET is not a constituent of the TEAMS DISTRIBUTE SIMD directive671 !$omp teams distribute simd if(target: .true.)672 do i = 1, 10673 end do674 !$omp end teams distribute simd675end program main676