28 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=602 3module m4 5!ERROR: The name 'x' should refer to a procedure6!$omp declare_simd(x)7 8!ERROR: DECLARE_SIMD directive should have at most one argument9!$omp declare_simd(f00, f01)10 11!ERROR: The argument to the DECLARE_SIMD directive should be a procedure name12!$omp declare_simd(v : integer)13 14contains15 16subroutine f0017end18 19subroutine f0120end21 22integer function f0223!Ok, expect no diagnostics24!$omp declare_simd(f02)25end26 27end module28