blob: 3283ba21f320b9860e7a8cbf116e36317957254b [file] [log] [blame]
! { dg-do compile }
! { dg-options "-O -Wuninitialized" }
module foo
implicit none
type bar
integer :: yr
end type
contains
function baz(arg) result(res) ! { dg-bogus "res.yr' may be" }
type(bar), intent(in) :: arg
type(bar) :: res
logical, external:: some_func
if (.not. some_func(arg)) then
call fatal('arg not valid')
else
res = arg
end if
end function baz ! { dg-warning "res.yr' may be" }
end module foo