! Ensures that -Werror is read regardless of whether or not other -W
! flags are present in the CLI args

! RUN: not %flang -std=f2018 -Werror -Wextra %s -c 2>&1 | FileCheck %s --check-prefix=WRONG
! RUN: %flang -std=f2018 -Wextra -Wall %s -c 2>&1 | FileCheck %s --check-prefix=CHECK-OK

! WRONG: Semantic errors in
! CHECK-OK: FORALL index variable

program werror_check_all
  integer :: a(3)
  forall (j=1:n) a(i) = 1
end program werror_check_all