Mercurial > hg > CbC > CbC_gcc
annotate gcc/testsuite/gfortran.dg/bound_5.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 84e7813d76e9 |
children |
rev | line source |
---|---|
111 | 1 ! { dg-do run } |
2 ! | |
3 ! PR fortran/38859 | |
4 ! Wrong bounds simplification | |
5 ! | |
6 ! Contributed by Dick Hendrickson <dick.hendrickson@gmail.com> | |
7 | |
8 type x | |
9 integer I | |
10 end type x | |
11 type (x) A(0:5, 2:8) | |
12 integer ida(2) | |
13 | |
14 ida = lbound(a) | |
131 | 15 if (any(ida /= (/0,2/))) STOP 1 |
111 | 16 |
17 ida = lbound(a%i) | |
131 | 18 if (any(ida /= (/1,1/))) STOP 2 |
111 | 19 |
20 ida = ubound(a) | |
131 | 21 if (any(ida /= (/5,8/))) STOP 3 |
111 | 22 |
23 ida = ubound(a%i) | |
131 | 24 if (any(ida /= (/6,7/))) STOP 4 |
111 | 25 |
26 end |