xref: /llvm-project/flang/test/Semantics/OpenMP/declare-target03.f90 (revision 502bea25bdc07d1811b8bfea1c2e6bfa8617f72f)
1! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp -pedantic
2! OpenMP Version 5.1
3! Check OpenMP construct validity for the following directives:
4! 2.14.7 Declare Target Directive
5
6module mod1
7end
8
9subroutine bar
10  !$omp declare target (bar)
11end subroutine
12
13program main
14  use mod1
15
16  !ERROR: The module name or main program name cannot be in a DECLARE TARGET directive
17  !$omp declare target (mod1)
18
19  !PORTABILITY: Name 'main' declared in a main program should not have the same name as the main program
20  !ERROR: The module name or main program name cannot be in a DECLARE TARGET directive
21  !$omp declare target (main)
22end
23