Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pr25923.f90 @ 111:04ced10e8804
gcc 7
author | kono |
---|---|
date | Fri, 27 Oct 2017 22:46:09 +0900 |
parents | |
children |
line wrap: on
line source
! { 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