2 ! { dg-options "-Werror -Wunused -std=f95" }
4 ! gfortran ignores -Werror
8 function char_ (ch
) ! { dg-warning "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-warning "defined but cannot be used" }
24 1 ! { dg-warning "Ignoring statement label in empty statement" }
26 ! { dg-final { output-exists-not } }