| ! 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 |