14 lines
449 B
Fortran
14 lines
449 B
Fortran
|
! 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
|