28 lines
1.2 KiB
Fortran
28 lines
1.2 KiB
Fortran
! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
|
|
! OpenMP Version 5.1
|
|
! Check OpenMP construct validity for the following directives:
|
|
! 2.14.7 Declare Target Directive
|
|
! When used in an implicit none context.
|
|
|
|
module test_0
|
|
implicit none
|
|
!ERROR: The given DECLARE TARGET directive clause has an invalid argument
|
|
!ERROR: No explicit type declared for 'no_implicit_materialization_1'
|
|
!$omp declare target(no_implicit_materialization_1)
|
|
|
|
!ERROR: The given DECLARE TARGET directive clause has an invalid argument
|
|
!ERROR: No explicit type declared for 'no_implicit_materialization_2'
|
|
!$omp declare target link(no_implicit_materialization_2)
|
|
|
|
!ERROR: The given DECLARE TARGET directive clause has an invalid argument
|
|
!WARNING: The usage of TO clause on DECLARE TARGET directive has been deprecated. Use ENTER clause instead.
|
|
!ERROR: No explicit type declared for 'no_implicit_materialization_3'
|
|
!$omp declare target to(no_implicit_materialization_3)
|
|
|
|
!ERROR: The given DECLARE TARGET directive clause has an invalid argument
|
|
!ERROR: No explicit type declared for 'no_implicit_materialization_3'
|
|
!$omp declare target enter(no_implicit_materialization_3)
|
|
|
|
INTEGER :: data_int = 10
|
|
!$omp declare target(data_int)
|
|
end module test_0
|