gcc/testsuite/gfortran.dg/warnings_are_errors_1.f

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