27 lines
696 B
Fortran
27 lines
696 B
Fortran
! { 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 } }
|