Mercurial > hg > CbC > CbC_gcc
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 145:1830386684a0 | 152:2b5abeee2509 |
|---|---|
| 1 ! Copy of gfortran.fortran-torture/compile/pr88304-2.f90 | |
| 2 ! as a regression test for ICE with -fanalyzer (PR analyzer/93779) | |
| 3 | |
| 4 module pr88304 | |
| 5 implicit none | |
| 6 integer :: p | |
| 7 contains | |
| 8 function foo (x, y, z, w) | |
| 9 integer, intent(in) :: x, y | |
| 10 character(*), optional, intent(out) :: z | |
| 11 integer, optional, intent(out) :: w | |
| 12 integer :: foo | |
| 13 foo = 1 | |
| 14 end function foo | |
| 15 subroutine bar () | |
| 16 integer :: s | |
| 17 s = baz (1) | |
| 18 contains | |
| 19 function baz (u) | |
| 20 integer, intent(in) :: u | |
| 21 integer :: baz | |
| 22 integer :: q | |
| 23 integer :: r (10) | |
| 24 r = 0 | |
| 25 baz = 1 | |
| 26 q = foo (p, r(u), w = baz) | |
| 27 end function baz | |
| 28 end subroutine bar | |
| 29 end module pr88304 |