20 lines · plain
1!RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=602 3module m4 integer :: a5 common // a6 !ERROR: Blank common blocks are not allowed as directive or clause arguments7 !ERROR: An argument to the DECLARE TARGET directive should be an extended-list-item8 !$omp declare_target(//)9 !ERROR: Blank common blocks are not allowed as directive or clause arguments10 !$omp threadprivate(//)11end12 13subroutine f0014 integer :: a15 common // a16 !ERROR: Blank common blocks are not allowed as directive or clause arguments17 !$omp parallel shared(//)18 !$omp end parallel19end20