2 ! { dg-options "-Werror -Wunused -std=f95" }
4 ! gfortran ignores -Werror
8 function char_ (ch
) ! { dg-error "Obsolescent feature" }
9 character(*) :: char_
, ch
14 ! function wrong_warn (i) ! { -warning "Function does not return a value" }
16 ! end function wrong_warn
20 1234 complex :: cplx
! { dg-error "defined but cannot be used" }
24 ! { dg-final { output-exists-not } }
25 ! { dg-excess-errors "warnings being treated as errors" }