1! { dg-do compile }
2! { dg-options " -Werror" }
3! { dg-message "warnings being treated as errors" "" { target *-*-* } 0 }
4! PR fortran/21061
5! gfortran ignores -Werror
6! fixed-form tests
7       program warnings_are_errors_1
8       implicit none
9       integer(kind=1) :: i
10       real :: r1, r2(3)
11! gfc_warning_now:
120      r1 = 0 ! { dg-error "Zero is not a valid statement label" }
13!
1434 5   i=0
15! gfc_notify_std(GFC_STD_F95_DEL):
16       do r1 = 1, 2 ! { dg-error "Deleted feature: Loop variable" }
17         i = i+1
18       end do
19       call foo j bar
20! gfc_warning:
21       r2(4) = 0 ! { dg-error "is out of bounds" }
22
23       goto 3 45
24       end
25! { dg-final { output-exists-not } }
26