comparison gcc/testsuite/gfortran.dg/pr25923.f90 @ 111:04ced10e8804

gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
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-bogus "res.yr' may be" }
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 ! { dg-warning "res.yr' may be" }
23
24 end module foo