Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/analyzer/pr88304-2.f90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | |
children |
line wrap: on
line source
! Copy of gfortran.fortran-torture/compile/pr88304-2.f90 ! as a regression test for ICE with -fanalyzer (PR analyzer/93779) module pr88304 implicit none integer :: p contains function foo (x, y, z, w) integer, intent(in) :: x, y character(*), optional, intent(out) :: z integer, optional, intent(out) :: w integer :: foo foo = 1 end function foo subroutine bar () integer :: s s = baz (1) contains function baz (u) integer, intent(in) :: u integer :: baz integer :: q integer :: r (10) r = 0 baz = 1 q = foo (p, r(u), w = baz) end function baz end subroutine bar end module pr88304