URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gfortran.dg/] [warnings_are_errors_1.f90] - Rev 581
Go to most recent revision | Compare with Previous | Blame | View Log
! { 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 } }
Go to most recent revision | Compare with Previous | Blame | View Log