15 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=512 3subroutine sub04!ERROR: The name 'vsub1' should refer to a procedure5 !$omp declare variant (sub:vsub1) match (construct={parallel})6!ERROR: The name 'sub1' should refer to a procedure7 !$omp declare variant (sub1:vsub) match (construct={parallel})8contains9 subroutine vsub10 end subroutine11 12 subroutine sub ()13 end subroutine14end subroutine15