375f48942b
Add support for the standalone OpenMP tile construct: ```f90 !$omp tile sizes(...) DO i = 1, 100 ... ``` This is complementary to #143715 which added support for the tile construct as part of another loop-associated construct such as worksharing-loop, distribute, etc.
27 lines
509 B
Fortran
27 lines
509 B
Fortran
! Testing the Semantics of tile
|
|
!RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=51
|
|
|
|
|
|
subroutine missing_sizes
|
|
implicit none
|
|
integer i
|
|
|
|
!ERROR: At least one of SIZES clause must appear on the TILE directive
|
|
!$omp tile
|
|
do i = 1, 42
|
|
print *, i
|
|
end do
|
|
end subroutine
|
|
|
|
|
|
subroutine double_sizes
|
|
implicit none
|
|
integer i
|
|
|
|
!ERROR: At most one SIZES clause can appear on the TILE directive
|
|
!$omp tile sizes(2) sizes(2)
|
|
do i = 1, 5
|
|
print *, i
|
|
end do
|
|
end subroutine
|