Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/select_char_2.f90 @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } ! { dg-options "-O -fdump-tree-original" } if (foo ('E') .ne. 1) call abort if (foo ('e') .ne. 1) call abort if (foo ('f') .ne. 2) call abort if (foo ('g') .ne. 2) call abort if (foo ('h') .ne. 2) call abort if (foo ('Q') .ne. 3) call abort if (foo (' ') .ne. 4) call abort if (bar ('e') .ne. 1) call abort if (bar ('f') .ne. 3) call abort contains function foo (c) character :: c integer :: foo select case (c) case ('E','e') foo = 1 case ('f':'h ') foo = 2 case default foo = 3 case ('') foo = 4 end select end function function bar (c) character :: c integer :: bar select case (c) case ('ea':'ez') bar = 2 case ('e') bar = 1 case default bar = 3 case ('fd') bar = 4 end select end function end ! { dg-final { scan-tree-dump-not "_gfortran_select_string" "original" } }