flang/test/Semantics/omp-resolve01.f90

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