gcc/testsuite/gfortran.dg/pr25923.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-O -Wuninitialized" }
   3
   4 module foo
   5 implicit none
   6
   7   type bar
   8     integer :: yr
   9   end type
  10
  11 contains
  12
  13   function baz(arg) result(res) ! { dg-warning "res.yr' may be" "" { xfail *-*-* } }
  14     type(bar), intent(in) :: arg
  15     type(bar) :: res
  16     logical, external:: some_func
  17     if (.not. some_func(arg)) then
  18       call fatal('arg not valid')
  19     else
  20       res = arg
  21     end if
  22   end function baz
  23
  24 end module foo
  25
  26 ! { dg-final { cleanup-modules "foo" } }