12 lines · plain
1!RUN: %python %S/../test_errors.py %s %flang_fc1 %openmp_flags -fopenmp-version=512 3subroutine f004 integer, allocatable :: x, y5 6 continue7 !$omp allocate8 !ERROR: If multiple directives are present in an executable ALLOCATE directive, at most one of them may specify no list items9 !$omp allocate10 allocate(x, y)11end12