22 lines
635 B
Fortran
22 lines
635 B
Fortran
! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp -pedantic
|
|
! OpenMP Version 5.1
|
|
! Check OpenMP construct validity for the following directives:
|
|
! 2.14.7 Declare Target Directive
|
|
|
|
module mod1
|
|
end
|
|
|
|
subroutine bar
|
|
!$omp declare target (bar)
|
|
end subroutine
|
|
|
|
program main
|
|
use mod1
|
|
|
|
!ERROR: The module name or main program name cannot be in a DECLARE TARGET directive
|
|
!$omp declare target (mod1)
|
|
|
|
!PORTABILITY: Name 'main' declared in a main program should not have the same name as the main program
|
|
!ERROR: The module name or main program name cannot be in a DECLARE TARGET directive
|
|
!$omp declare target (main)
|
|
end
|