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