gcc/testsuite/gfortran.dg/warnings_are_errors_1.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

! { 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 } }