blob: 5a2ee29b4ac4a05738adfac3cf800500e1fd5127 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
! { dg-do compile }
! { dg-options "-O -Wuninitialized" }
module foo
implicit none
type bar
integer :: yr
end type
contains
function baz(arg) result(res) ! { dg-warning "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
end module foo
|
