Subversion Repositories openrisc

! { dg-do compile }

! { dg-options "-Werror -Wunused -std=f95" }

! PR fortran/21061

! gfortran ignores -Werror

! free-form tests

! gfc_notify_std:

       function char_ (ch) ! { dg-warning "Obsolescent feature" }

       character(*) :: char_, ch

        char_ = ch

       end function char_

! warning(0,...):

!      function wrong_warn (i) ! { -warning "Function does not return a value" }

!      integer i

!      end function wrong_warn

       implicit none

! gfc_warning:

1234  complex :: cplx ! { dg-warning "defined but cannot be used" }

      cplx = 20.

! gfc_warning_now:

 1 ! { dg-warning "Ignoring statement label in empty statement" }

       end

! { dg-final { output-exists-not } }