Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/select_3.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 |
line wrap: on
line source
! { dg-do run } ! Short test program with a CASE statement that uses a range. ! program select_4 integer i do i = 1, 34, 4 select case(i) case (:5) if (i /= 1 .and. i /= 5) STOP 1 case (13:21) if (i /= 13 .and. i /= 17 .and. i /= 21) STOP 2 case (29:) if (i /= 29 .and. i /= 33) STOP 3 case default if (i /= 9 .and. i /= 25) STOP 4 end select end do end program select_4