xref: /llvm-project/flang/test/Semantics/OpenMP/resolve01.f90 (revision 502bea25bdc07d1811b8bfea1c2e6bfa8617f72f)
1! RUN: %python %S/../test_errors.py %s %flang -fopenmp
2
3! 2.4 An array section designates a subset of the elements in an array. Although
4! Substring shares similar syntax but cannot be treated as valid array section.
5
6  character*8 c, b
7  character a
8
9  b = "HIFROMPGI"
10  c = b(2:7)
11  !ERROR: Substrings are not allowed on OpenMP directives or clauses
12  !$omp parallel private(c(1:3))
13  a = c(1:1)
14  !$omp end parallel
15end
16