Mercurial > hg > CbC > CbC_gcc
annotate gcc/testsuite/gfortran.dg/pr19926.f90 @ 132:d34655255c78
update gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 10:21:07 +0900 |
parents | 84e7813d76e9 |
children |
rev | line source |
---|---|
111 | 1 ! { dg-do run } |
2 module b | |
3 type cat | |
4 integer :: i = 0 | |
5 end type cat | |
6 end module b | |
7 | |
8 program a | |
9 use b | |
10 type(cat) z | |
11 integer :: i = 0, j(4,3,2) = 0 | |
12 call string_comp(i) | |
131 | 13 if (i /= 3) STOP 1 |
111 | 14 call string_comp(z%i) |
131 | 15 if (z%i /= 3) STOP 2 |
111 | 16 call string_comp(j(1,2,1)) |
131 | 17 if (j(1,2,1) /= 3) STOP 3 |
111 | 18 end program a |
19 | |
20 subroutine string_comp(i) | |
21 integer, parameter :: map(0:50) = 3 | |
22 integer :: i | |
23 i = map(42) | |
24 end subroutine string_comp |