14 lines · plain
1! Ensures that -Werror is read regardless of whether or not other -W2! flags are present in the CLI args3 4! RUN: not %flang -std=f2018 -Werror -Wextra %s -c 2>&1 | FileCheck %s --check-prefix=WRONG5! RUN: %flang -std=f2018 -Wextra -Wall %s -c 2>&1 | FileCheck %s --check-prefix=CHECK-OK6 7! WRONG: Semantic errors in8! CHECK-OK: FORALL index variable9 10program werror_check_all11 integer :: a(3)12 forall (j=1:n) a(i) = 113end program werror_check_all14